Quick PC 61/Quick PC 61.iso/I386/WMS.CAB/server_props.asp

Text File | 2003-02-21 | 114.9 KB | 2,577 lines

<%@ Language=VBScript CODEPAGE=65001 %>
<!--#include file="include/wmsLocStrings.inc"-->
<!--#include file="include/wmsServerHash.inc"-->
<!--#include file="include/wmsPlugins.inc"-->
<!--#include file="include/wmsHeader.inc"-->
<!--#include file="include/wmsRefresh.inc"-->
<!--#include file="include/wmsError.inc"-->
<!--#include file="include/wmsToolbar.inc"-->
<!--#include file="include/wmsPageBanner.inc"-->
<!--#include file="include/wmsTabs.inc"-->
<%
'+-------------------------------------------------------------------------
'
'  Microsoft Windows Media
'  Copyright (C) Microsoft Corporation. All rights reserved.
'
'  File:       Server_Props.asp
'
'  Contents:
'
'--------------------------------------------------------------------------

BeginErrorHandling
ConnectToServer
ClearError

Dim strCategory
Dim strDecodedInstance
Dim strEncodedInstance
Dim bShowAllPluginCategories
Dim iPluginCount
Dim blnRunningOnWhistlerAdvServer
Dim strSubCategory
Dim iFormSelect
Dim strStartOnFirstConnectChecked
Dim strOP
Dim objPluginCollection
Dim objServerLimits
Dim bPluginDisabledError
Dim bPluginRemovedError
Dim bPluginRemovedErrorEnable
Dim bPluginRenamedError
Dim bPluginDuplicateError
Dim bDrawWarning
Dim dwDisplayMode
Dim dwNumDisplayedPlugins
Dim dwSizeLimText
Dim strPlayerConnections
Dim strDistConnections
Dim strAggPlayerBW
Dim strDistAggBW
Dim strPlayerBW
Dim strDistBW
Dim strConnectRate
Dim strPlayerTOInactivity
Dim strPlayerConnectACK
Dim strIncomingBandwidth
Dim dwNumPluginsDisplayed
Dim bDriveUpdateToTreeView
Dim bCheckedAnItem
Dim strLeft
Dim strRight
Dim strError

Dim strCurrentCheckedPluginName
Dim bCurSelCanBeDuplicated
Dim bCurSelSupportsEnableDisable
Dim bCurSelCanBeDisabled
Dim bCurSelCanBeRemoved
Dim bCurSelSupportsProps
Dim bCurSelEnabled
Dim bCurSelIsActiveScriptNoFilename

strCurrentCheckedPluginName = "plugin_?"
bCurSelCanBeDuplicated = TRUE
bCurSelSupportsEnableDisable = FALSE
bCurSelCanBeDisabled = TRUE
bCurSelCanBeRemoved = TRUE
bCurSelSupportsProps = TRUE
bCurSelEnabled = FALSE
bCurSelIsActiveScriptNoFilename = FALSE

Const SHOWING_GENERAL = 0
Const SHOWING_PLUGINS = 1
Const SHOWING_LIMITS = 2

dwDisplayMode = SHOWING_PLUGINS

bDriveUpdateToTreeView = FALSE
if ( 0 = StrComp( "true", RemoveDangerousCharacters( qs("s") ), vbTextCompare ) ) then
    bDriveUpdateToTreeView = TRUE
end if

on error resume next
dwSizeLimText = CalcLenOfUnlimited

dwNumDisplayedPlugins = 0
bShowAllPluginCategories = Session( "ShowAllPluginCategories" )

if( empty = g_objServer ) then
    Server.Transfer( "include/server_stopped.asp" )
end if
on error resume next
dwProductType = g_objServer.OSProductType
if( 0 <> err.number ) then
    blnRunningOnWhistlerAdvServer = FALSE
    err.Clear
else
    blnRunningOnWhistlerAdvServer = CBool( WMS_OS_PRODUCT_ADVANCED and dwProductType )
end if
on error resume next

bPluginDisabledError = FALSE
bPluginRemovedError = FALSE
bPluginRemovedErrorEnable = FALSE
bPluginRenamedError = FALSE
bPluginDuplicateError = FALSE

rem Set the category so that we can implement a default
strCategory = RemoveDangerousCharacters( qs( "category" ) )
strEncodedInstance = RemoveDangerousCharacters( qs( "instance" ) )
strDecodedInstance = SafeUnescape( strEncodedInstance )
strPluginIndex = RemoveDangerousCharacters( qs( "pluginIndex" ) )
if( 7 < Len( strPluginIndex ) ) then
    dwQueryStringPluginIndex = Right( strPluginIndex, Len( strPluginIndex ) - 8 + 1 )
else
    dwQueryStringPluginIndex = -1
end if
if( "" = strCategory ) then
  strCategory = CAT_GEN
elseif( ( not bShowAllPluginCategories ) and ( ( L_MEDIAPARSERS_TEXT = strCategory ) or ( L_PLAYLISTPARSERS_TEXT = strCategory ) or ( L_DATASOURCE_TEXT = strCategory ) or ( L_UNICASTDATASINKS_TEXT = strCategory ) ) ) then
  strCategory = CAT_GEN
end if

'
' Acquire the publishing point
'
strSubCategory = ""
iFormSelect = -1

'
' Process the category
'
Select Case strCategory
    case CAT_GEN
        iFormSelect = 0
        dwDisplayMode = SHOWING_GENERAL
        bCurSelCanBeDuplicated = FALSE
        bCurSelSupportsEnableDisable = FALSE
        bCurSelSupportsProps = FALSE
    case CAT_AUTHORIZE
        iFormSelect = 1
        Set objPluginCollection = g_objServer.EventHandlers
        strSubCategory = AUTHORIZE_SUBCAT
        bCurSelSupportsEnableDisable = TRUE
    case CAT_LOGGING
        iFormSelect = 2
        Set objPluginCollection = g_objServer.EventHandlers
        strSubCategory = LOGGING_SUBCAT
        bCurSelSupportsEnableDisable = TRUE
    case CAT_EVENT
        iFormSelect = 3
        Set objPluginCollection = g_objServer.EventHandlers
        bCurSelSupportsEnableDisable = TRUE
    case CAT_AUTHEN
        iFormSelect = 4
        Set objPluginCollection = g_objServer.Authenticators
        bCurSelSupportsEnableDisable = TRUE
    case CAT_CACHE
        if( blnRunningOnWhistlerAdvServer ) then
            iFormSelect = 5
        end if
        Set objPluginCollection = g_objServer.CacheProxy
        bCurSelSupportsEnableDisable = TRUE
    case CAT_CPROT
        if( blnRunningOnWhistlerAdvServer ) then
            iFormSelect = 6
        else
            iFormSelect = 5
        end if
        Set objPluginCollection = g_objServer.ControlProtocols
        bCurSelSupportsEnableDisable = TRUE
    case CAT_LIM
        if( blnRunningOnWhistlerAdvServer ) then
            iFormSelect = 7
        else
            iFormSelect = 6
        end if
        dwDisplayMode = SHOWING_LIMITS
        bCurSelCanBeDuplicated = FALSE
        bCurSelSupportsEnableDisable = FALSE
        bCurSelSupportsProps = FALSE
    case CAT_MPARS
        if bShowAllPluginCategories then
            if( blnRunningOnWhistlerAdvServer ) then
                iFormSelect = 8
            else
                iFormSelect = 7
            end if
            Set objPluginCollection = g_objServer.MediaParsers
            bCurSelSupportsEnableDisable = TRUE
        else
            iFormSelect = 0
            dwDisplayMode = SHOWING_GENERAL
            bCurSelCanBeDuplicated = FALSE
            bCurSelSupportsEnableDisable = FALSE
        end if
    case CAT_PLPARS
        if bShowAllPluginCategories then
            if( blnRunningOnWhistlerAdvServer ) then
                iFormSelect = 9
            else
                iFormSelect = 8
            end if
            Set objPluginCollection = g_objServer.PlaylistParsers
            bCurSelSupportsEnableDisable = TRUE
        else
            iFormSelect = 0
            dwDisplayMode = SHOWING_GENERAL
            bCurSelCanBeDuplicated = FALSE
            bCurSelSupportsEnableDisable = FALSE
        end if
    case CAT_DSRC
        if bShowAllPluginCategories then
            if( blnRunningOnWhistlerAdvServer ) then
                iFormSelect = 10
            else
                iFormSelect = 9
            end if
            Set objPluginCollection = g_objServer.DataSources
            bCurSelSupportsEnableDisable = TRUE
        else
            iFormSelect = 0
            dwDisplayMode = SHOWING_GENERAL
            bCurSelCanBeDuplicated = FALSE
            bCurSelSupportsEnableDisable = FALSE
        end if
    case CAT_UCAST
        if bShowAllPluginCategories then
            if( blnRunningOnWhistlerAdvServer ) then
                iFormSelect = 11
            else
                iFormSelect = 10
            end if
            Set objPluginCollection = g_objServer.UnicastDataSinks
            bCurSelSupportsEnableDisable = TRUE
        else
            iFormSelect = 0
            dwDisplayMode = SHOWING_GENERAL
            bCurSelCanBeDuplicated = FALSE
            bCurSelSupportsEnableDisable = FALSE
        end if
    case Else
        strCategory = CAT_GEN
        iFormSelect = 0
        dwDisplayMode = SHOWING_GENERAL
        bCurSelCanBeDuplicated = FALSE
        bCurSelSupportsEnableDisable = FALSE
        bCurSelSupportsProps = FALSE
End Select

'
' In the case of limits, the checkbox value is submitted with the form.  Attempting to reload
'  the page for every click would lose any changes the user had made to the limits settings.
'
if( 0 = StrComp( "on", RemoveDangerousCharacters( qs( "ShowAllPluginCategories" ) ), vbTextCompare ) ) then
    bShowAllPluginCategories = TRUE
    Session( "ShowAllPluginCategories" ) = TRUE
    ClearError
    Response.Redirect( "server_props.asp?server=" & g_strQueryStringServer & "&category=" & strCategory & "&pluginIndex=" & strPluginIndex )
    Response.Flush
    Response.End
elseif ( 0 = StrComp( "off", RemoveDangerousCharacters( qs("ShowAllPluginCategories") ), vbTextCompare ) ) then
    bShowAllPluginCategories = FALSE
    Session( "ShowAllPluginCategories" ) = FALSE
    ClearError
    Response.Redirect( "server_props.asp?server=" & g_strQueryStringServer & "&category=" & strCategory & "&pluginIndex=" & strPluginIndex )
    Response.Flush
    Response.End
end if

'////////////////////////////////////////////////////////////////////////////////////////////////////
if SHOWING_LIMITS = dwDisplayMode then
    Err.clear
    set posting = Request.Form
    strOp = RemoveDangerousCharacters( trim( posting("limitOp") ) )
    strSubmit = RemoveDangerousCharacters( trim( posting("submit") ) )
    if( 0 < Len( strSubmit ) ) then
        set objServerLimits = g_objServer.limits

'        if( 0 = StrComp( strSubmit, SafeUnescape( trim( L_APPLYBUTTON_TEXT ) ), vbTextCompare ) ) then

            strPlayerConnections = NormalizeLimitText( RemoveDangerousCharacters( posting("PlayerConnText" ) ) )
            objServerLimits.ConnectedPlayers = strPlayerConnections
            if( ErrorDetected( "PlayerConn" ) ) then
                ClearError
            end if

            strDistConnections = NormalizeLimitText( RemoveDangerousCharacters( posting("DistConnText" ) ) )
            objServerLimits.OutgoingDistributionConnections = strDistConnections
            if( ErrorDetected( "DistConn" ) ) then
            end if

            strAggPlayerBW = NormalizeLimitText( RemoveDangerousCharacters( posting("AggPlayerBWText" ) ) )
            objServerLimits.PlayerBandwidth = strAggPlayerBW
            if( ErrorDetected( "AggPlayerBW" ) ) then
            end if

            strDistAggBW = NormalizeLimitText( RemoveDangerousCharacters( posting("AggDistBWText" ) ) )
            objServerLimits.OutgoingDistributionBandwidth = strDistAggBW
            if( ErrorDetected( "AggDistBW" ) ) then
            end if

            strPlayerBW = NormalizeLimitText( RemoveDangerousCharacters( posting("PlayerBWText" ) ) )
            objServerLimits.PerPlayerConnectionBandwidth = strPlayerBW
            if( ErrorDetected( "PlayerBW" ) ) then
            end if

            strDistBW = NormalizeLimitText( RemoveDangerousCharacters( posting("DistBWText" ) )  )
            objServerLimits.PerOutgoingDistributionConnectionBandwidth = strDistBW
            if( ErrorDetected( "DistBW" ) ) then
            end if

            strConnectRate = RemoveDangerousCharacters( posting("ConnectRateText" ) )
            strConnectRate = NormalizeLimitTextEx( CStr( strConnectRate ), CStr( DEFAULT_CONNECT_RATE ) )
            objServerLimits.ConnectionRate = CLng( strConnectRate )
            if( ErrorDetected( "ConnectRate" ) ) then
            end if

            strPlayerTOInactivity = RemoveDangerousCharacters( posting("PlayerTimeoutText" ) )
            strPlayerTOInactivity = NormalizeLimitTextEx( strPlayerTOInactivity, DEFAULT_PLAYERTIMEOUT_INSEC )
            objServerLimits.PlayerInactivityTimeout = CLng( strPlayerTOInactivity )
            if( ErrorDetected( "PlayerTimeout" ) ) then
            end if

            strPlayerConnectACK = NormalizeLimitTextEx( RemoveDangerousCharacters( posting("ConnectACKText" ) ), DEFAULT_SERVER_CONNECTACK_INSEC )
            objServerLimits.PlayerAcknowledgementTimeout = CLng( strPlayerConnectACK )
            if( ErrorDetected( "ConnACK" ) ) then
            end if

            strIncomingBandwidth = NormalizeLimitText( RemoveDangerousCharacters( posting( "IncomingBWText" ) ) )
            objServerLimits.IncomingBandwidth = strIncomingBandwidth
            if( ErrorDetected( "IncomingBW" ) ) then
            end if

            Response.Redirect( "server_props.asp?server=" & g_strQueryStringServer & "&limitChangesPersisted=true&category=" & strCategory )
'        end if

    end if

'////////////////////////////////////////////////////////////////////////////////////////////////////
elseif ( SHOWING_PLUGINS = dwDisplayMode ) then
    strOP = RemoveDangerousCharacters( trim( qs("op") ) )
    if( 0 < Len( strOP ) ) then

        iPluginCount = objPluginCollection.Count

        Select Case strOp
            case "enable"
                bDriveUpdateToTreeView = TRUE
                ConnectToPlugin
                ClearError
                g_objPlugin.Enabled = TRUE
                if( ErrorDetected( "Enable" ) ) then
                    if( -2147014848 = Err.number ) then
                        err.Description = L_PORTINUSEERROR_TEXT
                        Session( "ErrorNumber" ) = err.Number
                        Session( "ErrorCulprit" ) = ""
                        Session( "ErrorDescription" ) = L_PORTINUSEERROR_TEXT
                        break
                    elseif( -2147024773 = Err.number ) then
                        err.Description = L_ACTSCRIPTPLERROR_TEXT
                        Session( "ErrorNumber" ) = err.Number
                        Session( "ErrorCulprit" ) = ""
                        Session( "ErrorDescription" ) = L_ACTSCRIPTPLERROR_TEXT
                        break
                    end if
                end if
            case "disable"
                bDriveUpdateToTreeView = TRUE
                strError = CStr( trim( Session( "DisableError" ) ) )
                Session( "DisableError" ) = ""
                if( 0 < Len( strError ) ) then
                    bPluginDisabledError = TRUE
                else
                    ClearError
                end if
            case "remove"
                bDriveUpdateToTreeView = TRUE
                strError = CStr( trim( Session( "RemoveError" ) ) )
                Session( "RemoveError" ) = ""
                if( 0 = Len( strError ) ) then
                    ClearError
                elseif( 0 = Len( qs("prompted") ) )then
                    bPluginRemovedError = TRUE
                end if
            case "refresh"
                bDriveUpdateToTreeView = TRUE
                ClearError
            case Else
        End Select

        if ( not bPluginRemovedError ) and ( not bPluginDisabledError ) then
            if( 0 <> Err.number ) then
                ErrorDetected( "" )
                Session( "PageReloadedToDisplayError" ) = 1
            else
                Response.Redirect( "server_props.asp?server=" & g_strQueryStringServer & "&category=" & strCategory & "&pluginIndex=" & strPluginIndex & "&s=true" )
                err.clear
            end if
        end if
    end if

'////////////////////////////////////////////////////////////////////////////////////////////////////
else
    ' Handle General operations
end if

if( SHOWING_LIMITS = dwDisplayMode ) then
    set objServerLimits = g_objServer.limits
    strPlayerConnections = AdjustLimitText( objServerLimits.ConnectedPlayers )
    strDistConnections = AdjustLimitText( objServerLimits.OutgoingDistributionConnections )
    strAggPlayerBW = AdjustLimitText( objServerLimits.PlayerBandwidth )
    strDistAggBW = AdjustLimitText( objServerLimits.OutgoingDistributionBandwidth )
    strPlayerBW = AdjustLimitText( objServerLimits.PerPlayerConnectionBandwidth )
    strDistBW = AdjustLimitText( objServerLimits.PerOutgoingDistributionConnectionBandwidth )

    strConnectRate = AdjustLimitText( objServerLimits.ConnectionRate )
    strPlayerTOInactivity = AdjustLimitText( objServerLimits.PlayerInactivityTimeout )
    strPlayerConnectACK = AdjustLimitText( objServerLimits.PlayerAcknowledgementTimeout )
    strIncomingBW = AdjustLimitText( objServerLimits.IncomingBandwidth )
end if

'/////////////////////////////////////////////////////////////////////////////////////
Function NoFilenameActiveScriptPlugin( ByRef EachPlugin )
    on error resume next

    NoFilenameActiveScriptPlugin = FALSE
    if( strCategory <> CAT_EVENT ) then
        Exit Function
    end if

    Dim pluginAdmin
    Dim strScriptFilename
    Set pluginAdmin = EachPlugin.CustomInterface
    if( 0 = err.number ) then
        strScriptFilename = pluginAdmin.FileName
        if( 0 = err.number ) then
            if( 0 = Len( strScriptFilename ) ) then
                NoFilenameActiveScriptPlugin = TRUE
            end if
        end if
    end if
    err.Clear
End Function


'/////////////////////////////////////////////////////////////////////////////////////
Function CalcLenOfUnlimited()
    Dim intLen
    Dim strUnlimited

    intLen = 0
    strUnlimited = L_UNLIMITED_TEXT
    intLen = Len( strUnlimited )

    if( intLen < MAX_LEN_LIMIT ) then
        intLen = MAX_LEN_LIMIT
    end if

    CalcLenOfUnlimited = intLen
end Function

'/////////////////////////////////////////////////////////////////////////////////////
Sub IsDisabled( strValue )
    if( 0 = StrComp( L_UNLIMITED_TEXT, strValue, vbTextCompare ) ) then
        Response.Write( " disabled " )
    end if
end sub


'/////////////////////////////////////////////////////////////////////////////////////
Sub IsDisabledEx( strValue, strDisabled )
    if( 0 = StrComp( strDisabled, strValue, vbTextCompare ) ) then
        Response.Write( " disabled " )
    end if
end sub


'/////////////////////////////////////////////////////////////////////////////////////
Sub CheckIfNotDefault( strValue, strDefaultValue )
    if( 0 <> StrComp( strValue, strDefaultValue, vbTextCompare ) ) then
        Response.Write( " checked " )
    end if
end sub


'/////////////////////////////////////////////////////////////////////////////////////
function CalcMaxInputLength( l )
    if( 0 = StrComp( L_UNLIMITED_TEXT, l, vbTextCompare ) ) then
        CalcMaxInputLength = dwSizeLimText
    else
        CalcMaxInputLength = MAX_LEN_LIMIT
    end if
end function


'/////////////////////////////////////////////////////////////////////////////////////
function AdjustLimitText(l)
    if -1 = l then
       AdjustLimitText = L_UNLIMITED_TEXT
    else
        AdjustLimitText = l
    end if
end function


'/////////////////////////////////////////////////////////////////////////////////////
function NormalizeLimitText( strText )

    if ( 0 = StrComp( L_UNLIMITED_TEXT, strText, vbTextCompare ) ) then
        NormalizeLimitText = "-1"
    else
        if IsEmpty( strText ) then
            NormalizeLimitText = "-1"
        elseif ( 0 = Len( strText ) ) then
            NormalizeLimitText = "-1"
        elseif CLng( strText ) < -1 then
            Err.Raise 13, "NormalizeLimitText", L_TYPEMISMATCH_TEXT
            NormalizeLimitText = strText
        else
            if( ( CDbl( strText ) <= MAX_LIMIT_VAL ) and ( CDbl( strText ) >= 0 ) ) then
                NormalizeLimitText = strText
            else
                Err.Raise 13, "NormalizeLimitText", L_TYPEMISMATCH_TEXT
                NormalizeLimitText = "-1"
            end if
        end if
    end if
end function


'/////////////////////////////////////////////////////////////////////////////////////
function NormalizeLimitTextEx( strText, strDefault )
    if ( 0 = StrComp( strText, strDefault, vbTextCompare ) ) then
        NormalizeLimitTextEx = strDefault
    else
        if IsEmpty( strText ) then
            NormalizeLimitTextEx = strDefault
        elseif ( 0 = Len( strText ) ) then
            NormalizeLimitTextEx = strDefault
        elseif ( 0 = StrComp( L_UNLIMITED_TEXT, strText, vbTextCompare ) ) then
            NormalizeLimitTextEx = -1
        elseif CLng( strText ) < -1 then
            Err.Raise 13, "NormalizeLimitTextEx", L_TYPEMISMATCH_TEXT
            NormalizeLimitTextEx = strText
        else
            if( ( CDbl( strText ) <= MAX_LIMIT_VAL ) and ( CDbl( strText ) >= 0 ) ) then
                NormalizeLimitTextEx = strText
            else
                Err.Raise 13, "NormalizeLimitTextEx", L_TYPEMISMATCH_TEXT
                NormalizeLimitTextEx = "-1"
            end if
        end if
    end if
end function

Function CalcNumCategoriesToShow()
    Dim dwOffsetForAdvancedServer
    Dim dwNumCategoriesToShow

    if( blnRunningOnWhistlerAdvServer ) then
        dwOffsetForAdvancedServer = 1
    else
        dwOffsetForAdvancedServer = 0
    end if

    if bShowAllPluginCategories then
        dwNumCategories = 11
    else
        dwNumCategories = 7
    end if
    CalcNumCategoriesToShow = dwNumCategories + dwOffsetForAdvancedServer
End Function

'/////////////////////////////////////////////////////////////////////////////////
'/////////////////////////////////////////////////////////////////////////////////
'/////////////////////////////////////////////////////////////////////////////////

WriteHTMLHeader( RemoveDangerousCharacters( g_strDecodedServerName ) )
if( SHOWING_LIMITS <> dwDisplayMode ) then
       WriteRefreshMetaTag
end if
%>
<link rel="stylesheet" type="text/css" href="<%= Session( "cssName" ) %>">
<script language="JavaScript" src="include/WMSCommon.js"></script>
<script language="JavaScript">
<!--
/*@cc_on @*/
var g_szPropertiesArgs = "";
var g_szCurPluginElementName; // do this server-side to overcome Mozilla upper-ascii escape() / unescape() bug
var g_bCurSelCanBeDuplicated;
var g_bCurSelSupportsEnableDisable;
var g_bCurSelCanBeDisabled;
var g_bCurSelCanBeRemoved;
var g_bCurSelSupportsProperties;
var g_bInError;
var g_bEnabled;
var g_bShowActiveScriptWarning;

var bAllowToggleShowAllPluginCategory;
bAllowToggleShowAllPluginCategory = true;
<% WriteCommonJSUtils %>

//////////////////////////////////////////////////////////////////////////
function Init()
{
    SetInitialState();
    DrawCurrentToolbarSelection();
}

//////////////////////////////////////////////////////////////////////////
function DrawCurrentToolbarSelection()
{
    <% jsTRY %>
        DrawEnableDisable( g_bCurSelSupportsEnableDisable, g_bEnabled, g_bInError, g_bCurSelCanBeDisabled );
        DrawDuplicate( g_bCurSelCanBeDuplicated && g_bCurSelCanBeDisabled );
        DrawRemove( g_bCurSelCanBeRemoved && g_bCurSelCanBeDisabled );
        DrawProps( g_bCurSelSupportsProperties );
        g_bToolbarLoaded = true;
    <% jsCATCH %>
}

//////////////////////////////////////////////////////////////////////////
function DrawEnableDisable( bCurSelSupportsEnableDisable, bEnabled, bInError, bCanBeDisabled )
{
    if( bCurSelSupportsEnableDisable )
    {
        EnableToolbarItem( 0, ! bEnabled || bInError );
        EnableToolbarItem( 1, ( bEnabled || bInError ) && bCanBeDisabled );
    }
    else
    {
        EnableToolbarItem( 0, false );
        EnableToolbarItem( 1, false );
    }
}

//////////////////////////////////////////////////////////////////////////
function DrawRemove( bCurSelSupportsRemove )
{
    g_bCurSelCanBeRemoved = bCurSelSupportsRemove;
    EnableToolbarItem( 2, bCurSelSupportsRemove );
}

//////////////////////////////////////////////////////////////////////////
function DrawDuplicate( bCurSelSupportsDuplicate )
{
    g_bCurSelCanBeDuplicated = bCurSelSupportsDuplicate;
    EnableToolbarItem( 3, bCurSelSupportsDuplicate );
}

//////////////////////////////////////////////////////////////////////////
function DrawProps( bCurSelSupportsProps )
{
    EnableToolbarItem( 4, bCurSelSupportsProps );
}

//////////////////////////////////////////////////////////////////////////
function Cancel()
{
    document.location.replace( "server_props.asp?server=<%= g_strQueryStringServer %>&category=<%= strCategory %>&pluginIndex=" + g_szCurPluginElementName + "&instance=<%= strEncodedInstance %>" );
}

//////////////////////////////////////////////////////////////////////////
function IsValidEntry( theEditBox )
{
    var szTextEdit;

    if( theEditBox.disabled )
    {
        return( true );
    }

    szTextEdit = new String( theEditBox.value );

    if ( ( "<%= L_UNLIMITED_TEXT %>" == szTextEdit ) && ( true == theEditBox.disabled ) )
    {
        return true;
    }

    if( "" == szTextEdit )
    {
        return false;
    }

    if( ! isFinite( szTextEdit ) )
    {
        return false;
    }

    if( ( "-0" == szTextEdit ) || ( 0 > szTextEdit ) )
    {
        return false;
    }

    if( 4294967295 <= szTextEdit )
    {
        return false;
    }

    return true;
}

//////////////////////////////////////////////////////////////////////////
function AllEntriesAreValid( bAlertUserOnError )
{
    var theForm;
    theForm = document.forms.mainForm;

    if( IsValidEntry( theForm.PlayerConnText ) &&
        IsValidEntry( theForm.DistConnText ) &&
        IsValidEntry( theForm.AggPlayerBWText ) &&
        IsValidEntry( theForm.AggDistBWText ) &&
        IsValidEntry( theForm.PlayerBWText ) &&
        IsValidEntry( theForm.DistBWText ) )
    {
        return true;
    }

    if( bAlertUserOnError )
    {
        window.alert( "<%= RemoveDangerousCharacters( L_PLEASEENTERVALUES_TEXT ) %>" );
    }

    return false;
}

//////////////////////////////////////////////////////////////////////////
function EnableButtons( bAlertUserOnError )
{
    var theForm;
    theForm = document.forms.mainForm;

    if( AllEntriesAreValid( bAlertUserOnError ) )
    {
        theForm.submit.disabled = false;
        theForm.cancel.disabled = false;
        theForm.ShowAllPluginCategories.disabled = true;
        bAllowToggleShowAllPluginCategory = false;
    }
    else
    {
        theForm.submit.disabled = true;
        theForm.cancel.disabled = false;<% if SHOWING_LIMITS <> dwDisplayMode then %>
        theForm.ShowAllPluginCategories.disabled = false;<% end if %>
        bAllowToggleShowAllPluginCategory = true;
    }
}

//////////////////////////////////////////////////////////////////////////
function InitLimits()
{
    var theCheckBox;
    var theTextBox;

    theTextBox = document.mainForm.elements[ "PlayerConnText" ];
    theCheckBox = document.mainForm.elements[ "PlayerConnCheckbox" ];
    if( ! theCheckBox.checked )
    {
        if( ! document.mainForm.elements[ "PlayerConnText" ].isDisabled )
        {
            document.mainForm.elements[ "PlayerConnText" ].disabled = true;
        }
    }

    theTextBox = document.mainForm.elements[ "DistConnText" ];
    theCheckBox = document.mainForm.elements[ "DistConnCheckbox" ];
    if( ! theCheckBox.checked )
    {
        theTextBox.disabled = true;
    }

    theTextBox = document.mainForm.elements[ "AggPlayerBWText" ];
    theCheckBox = document.mainForm.elements[ "AggPlayerBWCheckbox" ];
    if( ! theCheckBox.checked )
    {
        theTextBox.disabled = true;
    }

    theTextBox = document.mainForm.elements[ "AggDistBWText" ];
    theCheckBox = document.mainForm.elements[ "AggDistBWCheckbox" ];
    if( ! theCheckBox.checked )
    {
        theTextBox.disabled = true;
    }

    theTextBox = document.mainForm.elements[ "PlayerBWText" ];
    theCheckBox = document.mainForm.elements[ "PlayerBWCheckbox" ];
    if( ! theCheckBox.checked )
    {
        theTextBox.disabled = true;
    }

    theTextBox = document.mainForm.elements[ "DistBWText" ];
    theCheckBox = document.mainForm.elements[ "DistBWCheckbox" ];
    if( ! theCheckBox.checked )
    {
        theTextBox.disabled = true;
    }

    theTextBox = document.mainForm.elements[ "ConnectRateText" ];
    theCheckBox = document.mainForm.elements[ "ConnectRateCheckbox" ];
    if( ! theCheckBox.checked )
    {
        theTextBox.disabled = true;
    }

    theTextBox = document.mainForm.elements[ "PlayerTimeoutText" ];
    theCheckBox = document.mainForm.elements[ "PlayerTimeoutCheckbox" ];
    if( ! theCheckBox.checked )
    {
        theTextBox.disabled = true;
    }

    theTextBox = document.mainForm.elements[ "ConnectACKText" ];
    theCheckBox = document.mainForm.elements[ "ConnectACKCheckbox" ];
    if( ! theCheckBox.checked )
    {
        theTextBox.disabled = true;
    }
}

//////////////////////////////////////////////////////////////////////////
function GetFormElementID( theElement )
{
    var i,dwNumElementsl
    var bFound;
    var eachElement;

    dwNumElements = document.mainForm.elements.length;

    bFound = false;
    for( i = 0; ( i < dwNumElements ) && ( ! bFound ); i++ )
    {
        eachElement = document.mainForm.elements[ i ];
        if( eachElement.name == theElement.name )
        {
            bFound = true;
            break;
        }
    }
    if( ! bFound )
    {
        window.alert( "??" );
        return( -1 );
    }

    return( i );
}

//////////////////////////////////////////////////////////////////////////
function CheckLimit( theCheckBox, theTextBox, szDefaultVal )
{
    var x;
    var dwVal;
    var szVal;

    x = theTextBox.value;
    szVal = new String( x );
    if( 0 == szVal.length )
    {
        theTextBox.style.color="#000000";
        EnableButtons( false );
        return;
    }

    if ( "<%= L_UNLIMITED_TEXT %>" == szVal )
    {
        theCheckBox.checked = ( szDefaultVal != "<%= L_UNLIMITED_TEXT %>" );
        EnableButtons( false );
    }
    else if( "<%= L_INVALIDLIMIT_TEXT %>" != szVal )
    {
        if( isNaN( theTextBox.value ) )
        {
            theTextBox.style.color="#ff0000";
            EnableButtons( false );
            return;
        }

        dwVal = parseInt( szVal );
        if( ! ( ( 0 <= dwVal ) && ( 0xffffffff >= dwVal ) ) )
        {
            theTextBox.style.color="#ff0000";
            EnableButtons( false );
            return;
        }
        else
        {
            var szNewVal = new String( dwVal );
            if( theTextBox.value != szNewVal )
            {
//                theTextBox.value = dwVal;
            }
        }
    }

    theTextBox.style.color="#000000";
    EnableButtons( false );
}


//////////////////////////////////////////////////////////////////////////
function ToggleCheckbox( theCheckBox, theTextBox )
{
    var x;
    var dwVal;
    var dwCheckID, dwTextID;
    var theElement;
    var resolvedCheckBox;

    if( ! theTextBox )
    {
        return( false );
    }

    dwCheckID = GetFormElementID( theCheckBox );
    dwTextID = GetFormElementID( theTextBox );

    resolvedCheckBox = document.mainForm.elements[ dwCheckID ];

    if( resolvedCheckBox.checked )
    {
        theElement = document.mainForm.elements[ dwTextID ];

        theElement.disabled = false;
        theElement.value = "";
        theElement.focus();
    }
    else
    {
        theElement = document.mainForm.elements[ dwTextID ];

        theElement.disabled = true;
        theElement.value = "<%= L_UNLIMITED_TEXT %>";
    }

    EnableButtons( false );
}


//////////////////////////////////////////////////////////////////////////
function ToggleCheckboxEx( theCheckBox, theTextBox, szDefault )
{
    var x;
    var dwVal;
    var dwCheckID, dwTextID;
    var theElement;
    var resolvedCheckBox;

    if( ! theTextBox )
    {
        return( false );
    }

    dwCheckID = GetFormElementID( theCheckBox );
    dwTextID = GetFormElementID( theTextBox );

    resolvedCheckBox = document.mainForm.elements[ dwCheckID ];

    if( resolvedCheckBox.checked )
    {
        theElement = document.mainForm.elements[ dwTextID ];

        theElement.disabled = false;
        theElement.value = szDefault;
        theElement.focus();
    }
    else
    {
        theElement = document.mainForm.elements[ dwTextID ];

        theElement.disabled = true;
        theElement.value = szDefault;
    }

    EnableButtons( false );
}

<% if SHOWING_LIMITS = dwDisplayMode then %>
//////////////////////////////////////////////////////////////////////////
function GetLimitDescription( dwWhichLimit )
{
    var win = null;
    var bReplace = true;
    var szServerName;
    var szWinName;

    szWinName = "PluginDescription";
    szUrl = "plugins/plugin_description.asp?server=<%= g_strQueryStringServer %>&limit=" + dwWhichLimit;

    if( ( 0 <= dwWhichLimit ) && ( dwWhichLimit <= 10 ) )
    {
    <% if( brMSIE <> g_dwBrowserType ) then %>
        var szFeatures = "resizable,scrollbars=yes,height=<%= Server.HTMLEncode( DESCRIPTIONDLGHEIGHT ) %>,width=350px<%'= DESCRIPTIONDLGWIDTH %>,outerHeight=<%= Server.HTMLEncode( DESCRIPTIONDLGHEIGHT ) %>,innerHeight=<%= Server.HTMLEncode( DESCRIPTIONDLGHEIGHT ) %>,outerWidth=<%= Server.HTMLEncode( DESCRIPTIONDLGWIDTH ) %>,innerWidth=<%= Server.HTMLEncode( DESCRIPTIONDLGWIDTH ) %>";
        win = window.open( szUrl, szWinName, szFeatures, true );
        if( ! win )
        {
            win = window.open( szUrl, szWinName, szFeatures, true );
        }
        else
        {
            win.focus();
        }
    <% else %>
        var szFeatures = "resizable:yes;status:no;help:no;scroll:yes;dialogHeight:<%= Server.HTMLEncode( DESCRIPTIONDLGHEIGHT ) %>;dialogWidth:<%= Server.HTMLEncode( DESCRIPTIONDLGWIDTH ) %>;edge:raised;center:yes";
        showModalDialog( szUrl, null, szFeatures )
    <% end if %>
    }
}

<% elseif ( SHOWING_PLUGINS = dwDisplayMode ) then %>

//////////////////////////////////////////////////////////////////////////
function GetPluginDescription( szInstance )
{
    var szInstance;
    var win = null;
    var bReplace = true;
    var szServerName;
    var szWinName;

    szWinName = "PluginDescription";

    szUrl = "plugins/plugin_description.asp?server=<%= g_strQueryStringServer%>&category=" + "<%=strCategory%>&pluginIndex=" + szInstance;

    if( ( null != szInstance ) && ( 0 < szInstance.length ) )
    {
    <% if( brMSIE <> g_dwBrowserType ) then %>
        var szFeatures = "resizable,scrollbars=yes,height=<%= Server.HTMLEncode( DESCRIPTIONDLGHEIGHT ) %>,width=350px<%'= DESCRIPTIONDLGWIDTH %>,outerHeight=<%= Server.HTMLEncode( DESCRIPTIONDLGHEIGHT ) %>,innerHeight=<%= Server.HTMLEncode( DESCRIPTIONDLGHEIGHT ) %>,outerWidth=<%= Server.HTMLEncode( DESCRIPTIONDLGWIDTH ) %>,innerWidth=<%= Server.HTMLEncode( DESCRIPTIONDLGWIDTH ) %>";
        win = window.open( szUrl, szWinName, szFeatures, true );
        if( ! win )
        {
            win = window.open( szUrl, szWinName, szFeatures, true );
        }
        else
        {
            win.focus();
        }
    <% else %>
        var szFeatures = "resizable:yes;status:no;help:no;scroll:yes;dialogHeight:<%= Server.HTMLEncode( DESCRIPTIONDLGHEIGHT ) %>;dialogWidth:<%= Server.HTMLEncode( DESCRIPTIONDLGWIDTH ) %>;edge:raised;center:yes";
        showModalDialog( szUrl, null, szFeatures )
    <% end if %>
    }
}

<% end if %>

//////////////////////////////////////////////////////////////////////////
function ToggleShowAllPluginCategories()
{
    if( ! bAllowToggleShowAllPluginCategory )
    {
        document.mainForm.ShowAllPluginCategories.checked = <% if bShowAllPluginCategories then %>true<%else%>false<% end if %>;
        return;
    }

    var szShowAll = "on";

    <% if bShowAllPluginCategories then %>
    szShowAll = "off";
    <% else %>
    szShowAll = "on";
    <% end if %>

    document.location.replace( "server_props.asp?server=" + "<%= g_strQueryStringServer %>&category=<%= strCategory %>&pluginIndex=" + g_szCurPluginElementName + "&ShowAllPluginCategories=" + szShowAll );
}

//////////////////////////////////////////////////////////////////////////
function HilightCurrentCat( theEvent )
{
    <% jsTRY %>
<% if( brMSIE = g_dwBrowserType ) then %>
        if( 0 == theEvent.keyCode )
<% else %>
        if( 0 == theEvent.which )
<% end if %>
        {
            return;
        }

        var i = <%= Server.HTMLEncode( iFormSelect ) %>;
        document.mainForm.type[ i ].style.backgroundColor = "#6699ff";
        if( document.mainForm.type.selectedIndex != <%= Server.HTMLEncode( iFormSelect ) %> )
        {
            document.mainForm.type.style.backgroundColor = "#F5F5F5";
        }
        else
        {
            document.mainForm.type.style.backgroundColor = "#FFFFFF";
        }
    <% jsCATCH %>
}

//////////////////////////////////////////////////////////////////////////
function PluginTypeSelected( <% if( brMSIE <> g_dwBrowserType ) then %>event, <% end if %>bClick )
{
    <% jsTRY %>
        if( false == bClick )
        {
            // user entered a key
<% if( brMSIE = g_dwBrowserType ) then %>
            if( event.keyCode != 13 )
<% else %>
            if( event.which != 13 )
<% end if %>
            {
                HilightCurrentCat( event );
                return;
            }
        }
        var i = document.mainForm.type.selectedIndex;

        <%
        Dim strNewQueryString
        strNewQueryString = "server_props.asp?server=" & g_strQueryStringServer & "&category="
        %>

        switch( i )
        {
            case 0: //(GENERAL)
                szNewLocation = "<%= strNewQueryString %><%= CAT_GEN %>";
                break;
            case 1:
                szNewLocation = "<%= strNewQueryString %><%= CAT_AUTHORIZE %>";
                break;
            case 2:
                szNewLocation = "<%= strNewQueryString %><%= CAT_LOGGING %>";
                break;
            case 3:
                szNewLocation = "<%= strNewQueryString %><%= CAT_EVENT %>";
                break;
            case 4:
                szNewLocation = "<%= strNewQueryString %><%= CAT_AUTHEN %>";
                break;
    <% if blnRunningOnWhistlerAdvServer then %>
            case 5:
                szNewLocation = "<%= strNewQueryString %><%= CAT_CACHE %>";
                break;
            case 6:
                szNewLocation = "<%= strNewQueryString %><%= CAT_CPROT %>"
                break;
            case 7: //(LIMITS)
                szNewLocation = "<%= strNewQueryString %><%= CAT_LIM %>";
                break;
        <% if bShowAllPluginCategories then %>
            case 8:
                szNewLocation = "<%= strNewQueryString %><%= CAT_MPARS %>";
                break;
            case 9:
                szNewLocation = "<%= strNewQueryString %><%= CAT_PLPARS %>";
                break;
            case 10:
                szNewLocation = "<%= strNewQueryString %><%= CAT_DSRC %>";
                break;
            case 11:
                szNewLocation = "<%= strNewQueryString %><%= CAT_UCAST %>";
                break;
            case 12:
                szNewLocation = "<%= strNewQueryString %><%= CAT_PLAYXFORM %>";
                break;
            case 13:
        <% end if %>
    <% else ' Standard Server categories %>
            case 5:
                szNewLocation = "<%= strNewQueryString %><%= CAT_CPROT %>"
                break;
            case 6: //(LIMITS)
                szNewLocation = "<%= strNewQueryString %><%= CAT_LIM %>";
                break;
        <% if bShowAllPluginCategories then %>
            case 7:
                szNewLocation = "<%= strNewQueryString %><%= CAT_MPARS %>";
                break;
            case 8:
                szNewLocation = "<%= strNewQueryString %><%= CAT_PLPARS %>";
                break;
            case 9:
                szNewLocation = "<%= strNewQueryString %><%= CAT_DSRC %>";
                break;
            case 10:
                szNewLocation = "<%= strNewQueryString %><%= CAT_UCAST %>";
                break;
            case 11:
                szNewLocation = "<%= strNewQueryString %><%= CAT_PLAYXFORM %>";
                break;
            case 12:
        <% end if %>
    <% end if %>
            default:
                window.alert( "<%= RemoveDangerousCharacters( L_ILLEGALSELECTION_TEXT ) %>" );
                document.location.reload( true );
                break;
        }
        document.location = szNewLocation;
    <% jsCATCH %>
}

var dwNumTimesEntered = 0;
//////////////////////////////////////////////////////////////////////////
function SetFocusToCategory( dwNumTimesSelected )
{
    <% jsTRY %>
<% if ( SHOWING_PLUGINS = dwDisplayMode ) then %>
        document.mainForm.type.focus();
        return;
<% end if %>

<% if( brMSIE = g_dwBrowserType ) then %>
        if( document.activeElement.tagName != "SELECT" )
        {
            document.mainForm.type.focus();
            if( dwNumTimesEntered < 3 )
            {
                dwNumTimesEntered = dwNumTimesEntered + 1
                setTimeout( "SetFocusToCategory( " + dwNumTimesEntered + " )", 500, "JavaScript" );
            }
            return;
        }
<% end if %>
        document.mainForm.type.focus();
<% if SHOWING_LIMITS = dwDisplayMode then %>
    InitLimits();
<% end if %>
    <% jsCATCH %>
}

//////////////////////////////////////////////////////////////////////////
function HilightType()
{
    <% jsTRY %>
        <%if -1 <> iFormSelect then %>
        document.mainForm.type.options[ <%=iFormSelect%> ].selected = 1
        <%end if %>
    <% jsCATCH %>
}

//////////////////////////////////////////////////////////////////////////
function WarnNoProps()
{
    window.alert( "<%= RemoveDangerousCharacters( L_NOPROPERTYPAGE_TEXT ) %>" );
}

<% if SHOWING_PLUGINS = dwDisplayMode then %>
//////////////////////////////////////////////////////////////////////////
function HandlePluginClick( dwSpecifiedPluginIndex )
{
    <% jsTRY %>
        if( ( null != dwSpecifiedPluginIndex ) && ( 0 < dwSpecifiedPluginIndex.length ) )
        {
            document.location.replace( "plugins/plugin_action.asp?server=<%= g_strQueryStringServer %>" + "&op=properties&category=" + "<%= strCategory %>" + "&pluginIndex=" + dwSpecifiedPluginIndex + g_szPropertiesArgs );
        }
        else
        {
            window.alert( " <%= RemoveDangerousCharacters( L_PLEASESELECTAPLUGIN_TEXT ) %>" );
        }
    <% jsCATCH %>
}
<% end if %>

//////////////////////////////////////////////////////////////////////////
function Properties()
{
    <% jsTRY %>
<% if SHOWING_PLUGINS = dwDisplayMode then %>
    <% if( brMSIE = g_dwBrowserType ) then %>
    if( ! g_bCurSelSupportsProperties )
    {
        return;
    }
    <% end if %>
    var theItem;
    theItem = document.getElementById( g_szCurPluginElementName );
    if( theItem )
    {   <% if( brMSIE <> g_dwBrowserType ) then %>
        var szPropKey = new String( theItem.getAttribute( "proppage" ) );
        if( 0 == szPropKey.length )
        {
            WarnNoProps();
        }
        else
        {
            theItem.onclick();
        }
        <% else %>
        document.getElementById( g_szCurPluginElementName ).click();
        <% end if %>
    }
    return;
<% else %>
    var szInstance;
    szInstance = new String( GetCheckedItem() );
    if( ( null != szInstance ) && ( 0 < szInstance.length ) )
    {
        var theItem;
        theItem = document.getElementById( SafeUnescape( szInstance ) );
        if( ! theItem )
        {
            szInstance = SafeUnescape( szInstance );
            theItem = document.getElementById( szInstance );
        }

        if( theItem )
        {
            document.getElementById( SafeUnescape( szInstance ) ).click();
        }
        return;
    }
    else
    {
        window.alert( " <%= RemoveDangerousCharacters( L_PLEASESELECTAPLUGIN_TEXT ) %>" );
    }
<% end if %>
    <% jsCATCH %>
}

//////////////////////////////////////////////////////////////////////////
function Refresh()
{
    <% jsTRY %>
<% if SHOWING_PLUGINS = dwDisplayMode then %>
    if( ( null != g_szCurPluginElementName ) && ( 0 < g_szCurPluginElementName.length ) )
    {
        document.location.replace( "plugins/plugin_action.asp?server=<%= g_strQueryStringServer %>&op=refresh&category=<%= strCategory %>&pluginIndex=" + g_szCurPluginElementName );
    }
    else
    {
        window.alert( "<%= RemoveDangerousCharacters( L_ERRORDESCRIPTION_TEXT ) %>" + g_szCurPluginElementName );
    }
<% else %>
    var szInstance = new String( GetCheckedItem() );
    if( ( null != szInstance ) && ( 0 < szInstance.length ) )
    {
        document.location.replace( "plugins/plugin_action.asp?server=<%= g_strQueryStringServer %>&op=refresh&category=<%= strCategory %>&instance=" + szInstance );
    }
    else
    {
        document.location.reload( true );
    }
<% end if %>
    <% jsCATCH %>
}

//////////////////////////////////////////////////////////////////////////
function ClickRadio( dwItem )
{
    <% jsTRY %>
    if( dwItem < 0 )
    {
        return;
    }

    //if length is defined, iterate over the elements
    if( document.mainForm.length )
    {
        e = document.mainForm.plugins[ dwItem ];
        e.checked = true;
        return;
        var i;
        var e;
        for( i = 0; i < document.mainForm.length; i++ )
        {
            e = document.mainForm.plugins[ i ];
            if ( e.checked )
            {
                return( SafeEscape( e.value ) );
            }
        }
    //length isn't defined, so there's only the dummy element
    }
    <% jsCATCH %>
}


//////////////////////////////////////////////////////////////////////////
function GetCheckedItem()
{<% if( SHOWING_PLUGINS = dwDisplayMode ) then %>
    return( g_szCurPluginElementName );
<% end if %>
    return null;
}

<% if( SHOWING_PLUGINS = dwDisplayMode ) then %>
//////////////////////////////////////////////////////////////////////////
function Rename()
{
    <% jsTRY %>
    var szNewName;
    szNewName = "";

    var szInstance;
    szInstance = new String( GetCheckedItem() );
    if( ( null != szInstance ) && ( 0 < szInstance.length ) )
    {
        document.location.replace( "plugins/plugin_dialog.asp?server=<%= g_strQueryStringServer %>&op=rename&category=<%= strCategory %>&pluginIndex=" + g_szCurPluginElementName + "&instance=" + szInstance );
        return;
    }
    else
    {
        window.alert( " <%= RemoveDangerousCharacters( L_PLEASESELECTAPLUGIN_TEXT ) %>" );
    }
    <% jsCATCH %>
}
<% end if %>

//////////////////////////////////////////////////////////////////////////
function HandlePendingOp()
{
    <% jsTRY %>
    if( "<%= EscBackslashChar( RemoveDangerousCharacters( qs("pendingOp") ) ) %>" == "enable" )
    {
        g_bShowActiveScriptWarning = false;
        Enable();
    }
    <% jsCATCH %>
}

//////////////////////////////////////////////////////////////////////////
function Enable()
{
    <% jsTRY %>
    if( g_bCurSelSupportsEnableDisable && g_bEnabled && ! g_bInError )
    {
        return;
    }

    var szPluginIndex = -1;
    var bRedirectToProperties = false;

    if( g_bShowActiveScriptWarning )
    {
        bRedirectToProperties = window.confirm( "<%= RemoveDangerousCharacters( L_NOASCRIPTFILENAME_TEXT ) %>" );
    }
    if( bRedirectToProperties )
    {
        g_szPropertiesArgs = "&pendingOp=enable";
        Properties();
    }
    else
    {
        document.location.replace( "server_props.asp?server=<%= g_strQueryStringServer %>" + "&op=enable&category=<%= strCategory %>&pluginIndex=" + g_szCurPluginElementName );
    }
    <% jsCATCH %>
}

//////////////////////////////////////////////////////////////////////////
function Disable()
{
    <% jsTRY %>
    if( ( ! g_bCurSelSupportsEnableDisable ) || ( ! g_bCurSelCanBeDisabled ) || ( ! g_bEnabled && ! g_bInError ) )
    {
        return;
    }

    document.location.replace( "plugins/plugin_action.asp?server=<%= g_strQueryStringServer %>" + "&op=disable&category=<%= strCategory %>&pluginIndex=" + g_szCurPluginElementName + "&referrer=<%= Server.URLEncode("../server_props.asp") %>" );
    <% jsCATCH %>
}

<% if( SHOWING_PLUGINS = dwDisplayMode ) then %>
//////////////////////////////////////////////////////////////////////////
function Remove()
{
    <% jsTRY %>
    if( ! g_bCurSelCanBeRemoved )
    {
        return;
    }

    var szPluginIndex;
    szPluginIndex = new String( GetCheckedItem() );
    if( ( null != szPluginIndex ) && ( 0 < szPluginIndex.length ) )
    {
        document.location = "plugins/plugin_action.asp?server=<%= g_strQueryStringServer %>" + "&op=remove&category=<%= strCategory %>&pluginIndex=" + szPluginIndex;
    }
    else
    {
        window.alert( " <%= RemoveDangerousCharacters( L_PLEASESELECTAPLUGIN_TEXT ) %>" );
    }
    <% jsCATCH %>
}

//////////////////////////////////////////////////////////////////////////
function Duplicate()
{
    <% jsTRY %>
    if( ! g_bCurSelCanBeDuplicated )
    {
        return;
    }

    var szNewName = "";

    var szPluginIndex;
    szPluginIndex = new String( GetCheckedItem() );
    if( ( null != szPluginIndex ) && ( 0 < szPluginIndex.length ) )
    {
        document.location.replace( "plugins/plugin_dialog.asp?server=<%= g_strQueryStringServer %>&op=duplicate&category=<%= strCategory %>&pluginIndex=" + szPluginIndex );
        return;
    }
    else
    {
        window.alert( " <%= RemoveDangerousCharacters( L_PLEASESELECTAPLUGIN_TEXT ) %>" );
    }
    <% jsCATCH %>
}

    <% if bPluginRemovedError then %>
//////////////////////////////////////////////////////////////////////////
function HandleRemoveError()
{
    <% jsTRY %>
    var szNewQueryString;

    <% if bPluginRemovedErrorEnable then %>
    if( true == window.confirm( "<%= RemoveDangerousCharacters( L_LONGREMOVEPLUGINERROR_TEXT ) %>" ) )
    {
        Disable();
        return;
    }
    <% else %>
    window.alert( "<%= RemoveDangerousCharacters( L_CANNOTREMOVELASTINSTANCEOFAPLUGIN_TEXT ) %>" );
    <% end if %>

    szNewQueryString = "&category=<%= strCategory %>&pluginIndex=<%= strPluginIndex %>";
    document.location.replace( "server_props.asp?server=<%= g_strQueryStringServer %>" + szNewQueryString );
    <% jsCATCH %>
}
    <% elseif bPluginRenamedError then %>
//////////////////////////////////////////////////////////////////////////
function HandleRenameError()
{
    <% jsTRY %>
    var szNewQueryString;

    <%if 0 = Len( qs("message") ) then %>
    window.alert( "<%= RemoveDangerousCharacters( L_CANNOTRENAMEPLUGINERROR_TEXT ) & "\n" & RemoveDangerousCharacters( trim( qs("message") ) )%>" );
    <% else %>
    window.alert( "<%= RemoveDangerousCharacters( trim( qs("message") ) ) %>" );
    <% end if %>

    szNewQueryString = "&category=<%= strCategory %>&pluginIndex=<%= strPluginIndex %>";
    document.location.replace( "server_props.asp?server=<%= g_strQueryStringServer %>" + szNewQueryString );
    SetFocusToCategory( 0 );
    <% jsCATCH %>
}
    <% elseif bPluginDuplicateError then %>
//////////////////////////////////////////////////////////////////////////
function HandleDuplicateError()
{
    <% jsTRY %>
    var szNewQueryString;

    <%if 0 = Len( qs("message") ) then %>
    window.alert( "<%= RemoveDangerousCharacters( L_CANNOTDUPLICATEERROR_TEXT ) %>" );
    <% else %>
    window.alert( "<%= RemoveDangerousCharacters( RemoveDangerousCharacters( trim( qs("message") ) ) ) %>" );
    <% end if %>

    szNewQueryString = "&category=<%= strCategory %>&pluginIndex=<%= strPluginIndex %>";
    document.location.replace( "server_props.asp?server=<%= g_strQueryStringServer  %>" + szNewQueryString );
    SetFocusToCategory( 0 );
    <% jsCATCH %>
}
    <% end if %>
<% end if %>
-->
</script>
</head>
<%
strPrelimOp = "SetFocusToCategory( 0 );"
if bPluginRemovedError then
    strPrelimOp = "HandleRemoveError();"
    ClearError
elseif bPluginRenamedError then
    strPrelimOp = "HandleRenameError();"
    ClearError
elseif bPluginDuplicateError then
    strPrelimOp = "HandleDuplicateError();"
    ClearError
end if
%>
<body bgcolor="#FFFFFF" topmargin="0" leftmargin="0" rightmargin="0" marginwidth="0" marginheight="0" onLoad="JavaScript:<%= strPrelimOp %><%if bDriveUpdateToTreeView then %>UpdateTreeView();<% end if %>;Init();<% if 0 < Len( "pendingOp" ) then %>HandlePendingOp();<% end if %>" oncontextmenu="JavaScript:event.cancelBubble=true;return false;">
<%
' Draw the page banner and page tabs
DrawServerNameBanner L_PROPERTIESTABTITLE_TEXT
%>
<br>
<form name="mainForm" <% if SHOWING_LIMITS = dwDisplayMode then %>method="POST" <% end if %>>
<table bgcolor="#FFFFFF" width="100%" cellspacing="5" cellpadding="0" border="0">
    <tr>
        <td>
        <table width="100%" cellspacing="0" cellpadding="0" border="0">
        <tr>
            <td>
                <% if SHOWING_LIMITS = dwDisplayMode then %>
                <div class="helptext"><%= Server.HTMLEncode( L_PROPERTIESHELPSTRING_TEXT ) %></div>
                <% elseif ( SHOWING_PLUGINS = dwDisplayMode ) then %>
                <div class="helptext"><%= Server.HTMLEncode( L_SERVERPLUGINHELP_TEXT ) %></div>
                <% else %>
                <div class="helptext"><%= Server.HTMLEncode( L_SERVERGENHELP_TEXT ) %></div>
                <% end if %>
            </td>
        </tr>
        <tr>
            <td colspan="3">
                <div class="handcursor">
                <br>
                <input type="checkbox"
                        id="ShowAllPluginCategories"
                        name="ShowAllPluginCategories" <%
                        if( bShowAllPluginCategories ) then
                            Response.Write( " checked " )
                        end if %>
                        onClick="JavaScript:ToggleShowAllPluginCategories();"
                        tabIndex=<%= dwTabIndex %> <% dwTabIndex = dwTabIndex + 1 %>
                        <%' if not ( SHOWING_PLUGINS = dwDisplayMode ) and not ( SHOWING_GENERAL = dwDisplayMode ) then Response.Write( " disabled " ) end if %>
                       >
                <label for="ShowAllPluginCategories" class="handcursor" tabIndex=<%= dwTabIndex %> <% dwTabIndex = dwTabIndex + 1 %> ><%= Server.HTMLEncode( L_SHOWALLPLUGINCATEGORIES_TEXT ) %></label>
                <br>
                </div>
            </td>
        </tr>
        </table>

        <table bgcolor="#FFFFFF" cellspacing="0" cellpadding="0"  border="0" >
        <tr valign=top>
            <td>
                <table width="100%" cellspacing="0" cellpadding="0" border=1>
                <tr>
                    <td>
                        <table width="100%" cellspacing="0" cellpadding="0" border="0">
                        <tr>
                            <td align="center" valign="top" bgcolor="#6699ff" class="colheadertext">
                                <table cellspacing="1" cellpadding="1" bgcolor="#6699ff" border="0"><tr><td class="colheadertext" nowrap>
                                    <%= Server.HTMLEncode( L_CATEGORY_TEXT ) %>
                                </td><%
                                if brOpera = g_dwBrowserType then %>
                                <td>
                                <input type="button" name="<%= Server.HTMLEncode( L_GOBUTTON_TEXT ) %>" value="<%= Server.HTMLEncode( L_GOBUTTON_TEXT ) %>" tabIndex=<%= dwTabIndex %><% dwTabIndex = dwTabIndex + 1 %> onclick="JavaScript:PluginTypeSelected( <% if( brMSIE <> g_dwBrowserType ) then %>event, <% end if %>true );" ID="Button1" NAME="Button1"></td>
                                <%
                                end if %></tr></table>
                            </td>
                        </tr bgcolor="#FFFFFF" >
                        <tr>
                            <td bgcolor="#FFFFFF" align="center" width="100%" valign="top">
                                <select name=type tabIndex=<%= dwTabIndex %> <% dwTabIndex = dwTabIndex + 1 %>  class="propshand" style="BACKGROUND-COLOR: #ffffff;" size=<%= CalcNumCategoriesToShow %> onClick="JavaScript:PluginTypeSelected( <% if( brMSIE <> g_dwBrowserType ) then %>event, <% end if %>true );" onKeyUp="JavaScript:PluginTypeSelected( <% if( brMSIE <> g_dwBrowserType ) then %>event, <% end if %>false );">
                                    <option value="<%= Server.HTMLEncode( CAT_GEN ) %>" <% if 0 = iFormSelect then Response.Write( "selected" ) end if %> > <%= Server.HTMLEncode( L_GENERAL_TEXT ) %>
                                    <option value="<%= Server.HTMLEncode( CAT_AUTHORIZE ) %>" <% if 1 = iFormSelect then Response.Write( "selected" ) end if %> > <%= Server.HTMLEncode( L_AUTHORIZERS_TEXT ) %>
                                    <option value="<%= Server.HTMLEncode( CAT_LOGGING ) %>" <% if 2 = iFormSelect then Response.Write( "selected" ) end if %> > <%= Server.HTMLEncode( L_LOGGING_TEXT ) %>
                                    <option value="<%= Server.HTMLEncode( CAT_EVENT ) %>" <% if 3 = iFormSelect then Response.Write( "selected" ) end if %> > <%= Server.HTMLEncode( L_EVENTSPHANDLERS_TEXT ) %>
                                    <option value="<%= Server.HTMLEncode( CAT_AUTHEN ) %>" <% if 4 = iFormSelect then Response.Write( "selected" ) end if %> > <%= Server.HTMLEncode( L_AUTHENTICATION_TEXT ) %>
                                <% if blnRunningOnWhistlerAdvServer then %>
                                    <option value="<%= Server.HTMLEncode( CAT_CACHE ) %>" <% if 5 = iFormSelect then Response.Write( "selected" ) end if %> > <%= Server.HTMLEncode( L_CACHEPXMGMT_TEXT ) %>
                                    <option value="<%= Server.HTMLEncode( CAT_CPROT ) %>" <% if 6 = iFormSelect then Response.Write( "selected" ) end if %> > <%= Server.HTMLEncode( L_CONTROLSPPROTOCOLS_TEXT ) %>
                                    <option value="<%= Server.HTMLEncode( CAT_LIM ) %>" <% if 7 = iFormSelect then Response.Write( "selected" ) end if %> > <%= Server.HTMLEncode( L_LIMITS_TEXT ) %>
                                    <% if bShowAllPluginCategories then %>
                                    <option value="<%= Server.HTMLEncode( CAT_MPARS ) %>" <% if 8 = iFormSelect then Response.Write( "selected" ) end if %> > <%= Server.HTMLEncode( L_MEDIASPPARSERS_TEXT ) %>
                                    <option value="<%= Server.HTMLEncode( CAT_PLPARS ) %>" <% if 9 = iFormSelect then Response.Write( "selected" ) end if %> > <%= Server.HTMLEncode( L_PLAYLISTSPPARSERS_TEXT ) %>
                                    <option value="<%= Server.HTMLEncode( CAT_DSRC ) %>" <% if 10 = iFormSelect then Response.Write( "selected" ) end if %> > <%= Server.HTMLEncode( L_DATASPSOURCE_TEXT ) %>
                                    <option value="<%= Server.HTMLEncode( CAT_UCAST ) %>" <% if 11 = iFormSelect then Response.Write( "selected" ) end if %> > <%= Server.HTMLEncode( L_UNICASTSPDATASPSINKS_TEXT ) %>
                                    <% end if %>
                                <% else %>
                                    <option value="<%= Server.HTMLEncode( CAT_CPROT ) %>" <% if 5 = iFormSelect then Response.Write( "selected" ) end if %> > <%= Server.HTMLEncode( L_CONTROLSPPROTOCOLS_TEXT ) %>
                                    <option value="<%= Server.HTMLEncode( CAT_LIM ) %>" <% if 6 = iFormSelect then Response.Write( "selected" ) end if %> > <%= Server.HTMLEncode( L_LIMITS_TEXT ) %>
                                    <% if bShowAllPluginCategories then %>
                                    <option value="<%= Server.HTMLEncode( CAT_MPARS ) %>" <% if 7 = iFormSelect then Response.Write( "selected" ) end if %> > <%= Server.HTMLEncode( L_MEDIASPPARSERS_TEXT ) %>
                                    <option value="<%= Server.HTMLEncode( CAT_PLPARS ) %>" <% if 8 = iFormSelect then Response.Write( "selected" ) end if %> > <%= Server.HTMLEncode( L_PLAYLISTSPPARSERS_TEXT ) %>
                                    <option value="<%= Server.HTMLEncode( CAT_DSRC ) %>" <% if 9 = iFormSelect then Response.Write( "selected" ) end if %> > <%= Server.HTMLEncode( L_DATASPSOURCE_TEXT ) %>
                                    <option value="<%= Server.HTMLEncode( CAT_UCAST ) %>" <% if 10 = iFormSelect then Response.Write( "selected" ) end if %> > <%= Server.HTMLEncode( L_UNICASTSPDATASPSINKS_TEXT ) %>
                                    <% end if %>
                                <% end if %>
                                </select>
                            </td>
                        </tr>
                        </table>
                    </td>
                </tr>
                </table>
            </td>
        <td valign=top >

        </td>

<% if ( SHOWING_PLUGINS = dwDisplayMode ) then %>
        <td valign=top >
        <table width="100%" cellspacing="0" cellpadding="0" border="1" bgcolor="#FFFFFF">
        <tr>
            <td>
                <table width="100%" cellspacing="0" cellpadding="0" border="0" cols="3">
                <tr>
                    <td align="left" valign="top" bgcolor="#6699ff" class="colheader">
                        <table cellspacing="1" cellpadding="1" bgcolor="#6699ff" border="0"><tr><td class="colheadertext" nowrap>
                              <%= Server.HTMLEncode( L_PLUGIN_TEXT ) %>
                        </td></tr></table>
                    </td>
                    <td align="center" valign="top" bgcolor="#6699ff" class="colheader">
                        <table cellspacing="1" cellpadding="1" bgcolor="#6699ff" border="0"><tr><td class="colheadertext" nowrap>
                            <center>  <%= Server.HTMLEncode( L_STATUS_TEXT ) %>  </center>
                        </td></tr></table>
                    </td>
                    <td align="center" valign="top" bgcolor="#6699ff" class="colheader">
                        <table cellspacing="1" cellpadding="1" bgcolor="#6699ff" border="0"><tr><td class="colheadertext" nowrap>
                            <center>  <%= Server.HTMLEncode( L_DESCRIPTION_TEXT ) %>  </center>
                        </td></tr></table>
                    </td>
                </tr>
            <%
                on error resume next
                Dim iPluginIndex
                Dim strInputName, strPluginName, strMoniker, strSingleInstance
                Dim strCurrentSubCategory
                Dim dwPluginStatusFlags
                Dim bRemoved
                Dim bEnabled
                Dim bIsWMIPlugin
                Dim bInError
                Dim bIsActiveScriptNoFilename
                Dim bSingleInstance
                Dim bSupportsPropPage
                Dim bCannotLoadRequiresAdvServer

                iPluginCount = objPluginCollection.Count
                strPluginName = ""
                dwNumPluginsDisplayed = 0
                bCheckedAnItem = FALSE
                bIsWMIPlugin = FALSE
                iPluginIndex = 0
                while ( iPluginIndex < iPlugincount )

                    strMoniker = CStr( "" )
                    strSingleInstance = CStr( "" )
                    Set EachPlugin = objPluginCollection( iPluginIndex )
                    strCurrentSubCategory = ""
                    if( IsEmpty( EachPlugin ) ) then
                        continue
                    end if
                    strCurrentSubCategory = EachPlugin.Properties( "SubCategory" )

                    bIsWMIPlugin = FALSE
                    if( 0 = StrComp( CAT_EVENT, strCategory, vbTextCompare ) ) then
                        bIsWMIPlugin = ( 0 = StrComp( EachPlugin.CLSID, "{5606B770-0CA7-11D3-9043-0060089BBAF4}" ) )
                    end if
                    if( ( ( "" = strCurrentSubCategory ) and ( "" = strSubCategory ) ) or _
                        ( 0 = StrComp( strCurrentSubCategory, strSubCategory, vbTextCompare ) ) ) then

                        dwNumPluginsDisplayed = dwNumPluginsDisplayed + 1
                        strPluginName = EachPlugin.Name
                        bRemoved = CBool( WMS_PLUGIN_REMOVE_ON_SERVICE_RESTART and EachPlugin.Status )
                        strMoniker = CStr( EachPlugin.Properties("ASPMoniker") )
                        bSupportsPropPage = CBool( 0 < Len( strMoniker ) )

                        strSingleInstance = CStr( EachPlugin.Properties( "Singleton Instance" ) )
                        bSingleInstance = CBool( ( 0 < Len( strSingleInstance ) ) and ( 0 = StrComp( "1", strSingleInstance, vbTextCompare ) ) )
                        bCannotLoadRequiresAdvServer = not blnRunningOnWhistlerAdvServer and CBool( ( WMS_PLUGIN_SUPPORT_REQUIRES_ADVANCED_SERVER = EachPlugin.SupportStatus ) )
                        dwPluginStatusFlags = EachPlugin.Status
                        bEnabled = WMS_PLUGIN_ENABLED and dwPluginStatusFlags
                        bInError = WMS_PLUGIN_ERROR and dwPluginStatusFlags
                        bIsActiveScriptNoFilename = FALSE
                        bIsActiveScriptNoFilename = NoFilenameActiveScriptPlugin( EachPlugin )
                    %>
                    <tr>
                        <td width=<%= Server.HTMLEncode( MAX_LEN_PLUGINNAME ) %> bgcolor="#FFFFFF" valign="bottom">
                            <table width="100%" cellpadding="0" cellspacing="5" bgcolor="#FFFFFF" border="0" ID="Table1">
                            <tr>
                                <td width="100%" nowrap>
                                    <input
                                        type="radio"
                                        name="plugins"
                                        id="radio_plugin_<%= iPluginIndex %>"
                                        onClick="JavaScript:g_bEnabled=<%= BoolToText( bEnabled ) %>;g_bCurSelCanBeRemoved=<%= BoolToText( not bRemoved ) %>;g_bCurSelCanBeDisabled=<%= BoolToText( not bIsWMIPlugin ) %>;g_szCurPluginElementName='plugin_<%= iPluginIndex %>';g_bCurSelCanBeDuplicated=<% if bSingleInstance then %>false<% else %>true<% end if %>;g_bCurSelSupportsProperties=<% if bSupportsPropPage then %>true<% else %>false<% end if %>;g_bInError=<%= BoolToText( bInError ) %>;g_bShowActiveScriptWarning=<%= BoolToText( bIsActiveScriptNoFilename ) %>;DrawCurrentToolbarSelection();"
                                        value="<%= strPluginName %>"
                                        tabIndex=<%= dwTabIndex %> <% dwTabIndex = dwTabIndex + 1 %><%
                                    if ( FALSE = bCheckedAnItem ) then
                                        strCurrentCheckedPluginName = "plugin_" & iPluginIndex
                                        if( ( CInt( dwQueryStringPluginIndex ) = CInt( iPluginIndex ) ) or ( CInt( iPluginCount - 1 ) = CInt( iPluginIndex ) ) ) then
                                            Response.Write( " checked ")
                                            bCurSelCanBeDuplicated = ( FALSE = bSingleInstance )
                                            bCurSelCanBeDisabled = ( not bIsWMIPlugin )
                                            bCurSelCanBeRemoved = ( not bRemoved )
                                            bCurSelSupportsProperties = bSupportsPropPage
                                            bCurSelEnabled = bEnabled
                                            bCurSelInError = bInError
                                            bCurSelIsActiveScriptNoFilename = bIsActiveScriptNoFilename
                                            bCheckedAnItem = TRUE
                                        end if
                                    end if %> >
                                    <label
                                        for="radio_plugin_<%= iPluginIndex %>"
                                        tabIndex="<%= dwTabIndex %>" <% dwTabIndex = dwTabIndex + 1 %>
                                        class="propshand<% if bRemoved or bCannotLoadRequiresAdvServer then %>disabled<% end if %>"
                                        style="cursor:<% if bSupportsPropPage then %>hand<% else %>default<% end if %>;"
                                        id="plugin_<%= iPluginIndex %>"
                                        name="plugin_<%= iPluginIndex %>"
                                        tabIndex="<%= dwTabIndex %>" <% dwTabIndex = dwTabIndex + 1 %>
                                        proppage="<%
                                        if bSupportsPropPage then
                                            Response.Write( strPluginName )
                                        end if %>"
                                        class="propshand<% if bRemoved or bCannotLoadRequiresAdvServer then %>disabled<% end if %>" <% if not bCannotLoadRequiresAdvServer then %>
                                        onClick="JavaScript:ClickRadio( <%= dwNumPluginsDisplayed - 1 %> );<% if bSupportsPropPage then %>HandlePluginClick( 'plugin_<%= iPluginIndex %>' );<% else %>WarnNoProps();<% end if %>g_bEnabled=<%= BoolToText( bEnabled ) %>;g_bCurSelCanBeRemoved=<%= BoolToText( not bRemoved ) %>;g_bCurSelCanBeDisabled=<%= BoolToText( not bIsWMIPlugin ) %>;g_szCurPluginElementName='plugin_<%= iPluginIndex %>';g_bCurSelCanBeDuplicated=<% if bSingleInstance then %>false<% else %>true<% end if %>;g_bCurSelSupportsProperties=<% if bSupportsPropPage then %>true<% else %>false<% end if %>;g_bInError=<%= BoolToText( bInError ) %>;g_bShowActiveScriptWarning=<%= BoolToText( bIsActiveScriptNoFilename ) %>;DrawCurrentToolbarSelection();"<% end if %>><%
                                        if( brMSIE = g_dwBrowserType ) then
                                            Response.BinaryWrite( Server.HTMLEncode( SafeUnescape( strPluginName ) )  )
                                        else
                                            Response.Write( Server.HTMLEncode( strPluginName ) )
                                        end if
                                        %></label>
                                </td>
                            </tr>
                            </table>
                        </td>
                        <td bgcolor="#FFFFFF" nowrap class="props" align="center" valign="bottom">
                            <table width="100%" cellpadding="0" cellspacing="5" bgcolor="#FFFFFF" border="0" ID="Table6">
                            <tr>
                                <td width="100%">
                                    <% if bCannotLoadRequiresAdvServer then %>
                                    <span class="propsdisabled"> <%= Server.HTMLEncode( L_REQADVSERVER_TEXT ) %> </span>
                                    <% elseif bRemoved then %>
                                    <span class="propsdisabled"> <%= Server.HTMLEncode( L_REMOVED_TEXT ) %> </span>
                                    <% elseif bEnabled then %>
                                    <span class="props"> <%= Server.HTMLEncode( L_ENABLED_TEXT ) %> </span>
                                    <% elseif bInError then %>
                                    <span class="props"> <%= Server.HTMLEncode( L_INERROR_TEXT ) %> </span>
                                    <% else %>
                                    <span class="props"> <%= Server.HTMLEncode( L_DISABLED_TEXT ) %> </span>
                                    <% end if %>
                                </td>
                            </tr>
                            </table>
                        </td>
                        <td bgcolor="#FFFFFF" nowrap class="propshelp" align="center" valign="bottom">
                            <table width="100%" cellpadding="0" cellspacing="5" bgcolor="#FFFFFF" border="0" ID="Table7">
                            <tr>
                                <td width="100%">
                                    <center>
                                    <a nowrap oncontextmenu="JavaScript:event.cancelBubble=true;return false;" class="propshelp" href="JavaScript:GetPluginDescription( 'plugin_<%= iPluginIndex %>' );" tabIndex=<%= dwTabIndex %> <% dwTabIndex = dwTabIndex + 1 %>><%= L_DESCRIPTION_TEXT %></a>
                                    </center>
                                </td>
                            </tr>
                            </table>
                        </td>
                    </tr>
                    <%
                    end if
                    iPluginIndex = iPluginIndex + 1
                    %>
            <% wend %>
            <% if( 0 = dwNumPluginsDisplayed ) then %>
                    <tr>
                        <td width=<%= Server.HTMLEncode( MAX_LEN_PLUGINNAME ) %> bgcolor="#FFFFFF" >
                            <div class="small"> <%

                            rem Netscape won't recognize this non-break dash character and will display a question mark
                            if( brMSIE = g_dwBrowserType ) then
                                Response.Write( SpacesToNonbreak( L_NOPLUGINS_TEXT ) )
                            else
                                Response.Write( SpacesToNonbreak( Server.HTMLEncode( L_NOPLUGINSMOZILLA_TEXT ) ) )
                            end if

                            %></div>
                        </td>
                        <td bgcolor="#FFFFFF">

                        </td>
                    </tr>
            <% elseif( ( not bCheckedAnItem ) and ( 1 = dwNumPluginsDisplayed ) ) then
                strCurrentCheckedPluginName = "plugin_" & ( iPluginIndex - 1 )
                bCurSelCanBeDuplicated = ( FALSE = bSingleInstance )
                bCurSelCanBeDisabled = ( not bIsWMIPlugin )
                bCurSelCanBeRemoved = ( not bRemoved )
                bCurSelSupportsProperties = bSupportsPropPage
                bCurSelEnabled = bEnabled
                bCurSelInError = bInError
                bCurSelIsActiveScriptNoFilename = bIsActiveScriptNoFilename
'                bCheckedAnItem = TRUE
        end if
        %>
            </table>
            </td>
            </tr>
            </table>

        </td>
<% elseif SHOWING_GENERAL = dwDisplayMode then %>
        <td valign=top >
        <table width="100%" cellspacing="0" cellpadding="0" border="1" bgcolor="#FFFFFF">
        <tr>
            <td>
                <table width="100%" cellspacing="0" cellpadding="0" border="0">
                <tr>
                    <td align="left" valign="top" bgcolor="#6699ff" class="colheader">
                        <table cellspacing="1" cellpadding="1" bgcolor="#6699ff" border="0"><tr><td class="colheadertext" nowrap>
                              <%= Server.HTMLEncode( L_NAMEVALUE_TEXT ) %>
                        </td></tr></table>
                    </td>
                    <td align="center" valign="top" bgcolor="#6699ff" class="colheader">
                        <table cellspacing="1" cellpadding="1" bgcolor="#6699ff" border="0"><tr><td class="colheadertext" nowrap>
                             <%= Server.HTMLEncode( L_VALUE_TEXT ) %>
                        </td></tr></table>
                    </td>
                </tr>
                <tr>
                    <td class="props">
                         <%= Server.HTMLEncode( L_VERSIONSTR_TEXT ) %>
                    </td>
                    <td class="props">
                         <%= Server.HTMLEncode( g_objServer.Version ) %>
                    </td>
                </tr>
                </table>
            </td>
            </tr>
            </table>

        </td>
<% elseif SHOWING_LIMITS = dwDisplayMode then %>
        <td valign=top >
        <table width="100%" cellspacing="0" cellpadding="0" border=1>
        <tr>
            <td>
                <table width="100%" cellspacing="0" cellpadding="0" border="0">
                <tr>
                    <td valign=top class="colheader" colspan="2">
                        <table cellspacing="1" cellpadding="1" bgcolor="#6699ff" border="0"><tr><td class="colheadertext" nowrap>
                              <%= Server.HTMLEncode( L_LIMIT_TEXT ) %>
                        </td></tr></table>
                    </td>
                    <td align="center" valign="top" bgcolor="#6699ff" class="colheader">
                        <table cellspacing="1" cellpadding="1" bgcolor="#6699ff" border="0"><tr><td class="colheadertext" nowrap>
                            <center>  <%= Server.HTMLEncode( L_VALUE_TEXT ) %>  </center>
                        </td></tr></table>
                    </td>
                    <td align="center" valign="top" bgcolor="#6699ff" class="colheader">
                        <table cellspacing="1" cellpadding="1" bgcolor="#6699ff" border="0"><tr><td class="colheadertext" nowrap>
                            <center>  <%= Server.HTMLEncode( L_DESCRIPTION_TEXT ) %>  </center>
                        </td></tr></table>
                    </td>
                </tr>

<% ' Set player connections limit %>
                <tr>
                    <td width="16">
                        <input type="checkbox"
                               title="<%= Server.HTMLEncode( L_CHECKBOXDESC_TEXT ) %>"
                               id="PlayerConnCheckbox"
                               name="PlayerConnCheckbox" <% CheckIfNotDefault strPlayerConnections, L_UNLIMITED_TEXT %>
                               value=""
                               onClick="ToggleCheckbox( document.mainForm.PlayerConnCheckbox, document.mainForm.PlayerConnText );"
                               tabindex=<%= dwTabIndex %> <% dwTabIndex = dwTabIndex + 1 %>
                               >
                    </td>
                    <td class="propshand" align="left">
                        <label for="PlayerConnCheckbox"><span nowrap><% RenderWithErrorCheck Server.HTMLEncode( L_PLAYERCONNLIMIT_TEXT ), "AggPlayerBW" %></span></label>
                    </td>
                    <td align="right">
                        <input type="text"
                               name="PlayerConnText"
                               value="<%= Server.HTMLEncode( strPlayerConnections ) %>"
                               size=<%= dwSizeLimText %>
                               maxlength=<%= CalcMaxInputLength( strPlayerConnections ) %>
                               onChange="JavaScript:CheckLimit( document.mainForm.PlayerConnCheckbox, document.mainForm.PlayerConnText, '<%= L_UNLIMITED_TEXT %>' );"
                               onPaste="JavaScript:CheckLimit( document.mainForm.PlayerConnCheckbox, document.mainForm.PlayerConnText, '<%= L_UNLIMITED_TEXT %>' );"
                               onKeyUp="JavaScript:CheckLimit( document.mainForm.PlayerConnCheckbox, document.mainForm.PlayerConnText, '<%= L_UNLIMITED_TEXT %>' );"
                               onKeyDown="JavaScript:CheckLimit( document.mainForm.PlayerConnCheckbox, document.mainForm.PlayerConnText, '<%= L_UNLIMITED_TEXT %>' );"
                               tabindex=<%= dwTabIndex %> <% dwTabIndex = dwTabIndex + 1 %><% IsDisabled( strPlayerConnections )%>
                               >
                    </td>
                    <td bgcolor="#FFFFFF">
                        <div class="propshelp" align=center>
                            <center>
                            <a oncontextmenu="JavaScript:event.cancelBubble=true;return false;" class="propshelp" href="JavaScript:GetLimitDescription( 0 );" tabIndex=<%= dwTabIndex %> <% dwTabIndex = dwTabIndex + 1 %> ><%= L_DESCRIPTION_TEXT %></a>
                            </center>
                        </div>
                    </td>
                </tr>

<% ' Set outgoing distribution connections limit %>
                <tr>
                    <td width="16">
                        <input type="checkbox"
                               title="<%= Server.HTMLEncode( L_CHECKBOXDESC_TEXT ) %>"
                               id="DistConnCheckbox"
                               name="DistConnCheckbox" <% CheckIfNotDefault strDistConnections, L_UNLIMITED_TEXT %>
                               value=""
                               onClick="ToggleCheckbox( document.mainForm.DistConnCheckbox, document.mainForm.DistConnText );"
                               tabIndex=<%= dwTabIndex %> <% dwTabIndex = dwTabIndex + 1 %>
                               >
                    </td>
                    <td class="propshand" align="left">
                        <label for="DistConnCheckbox"><span nowrap><% RenderWithErrorCheck Server.HTMLEncode( L_DISTCONNLIMIT_TEXT ), "AggDistBW" %></span></label>
                    </td>
                    <td align="right">
                        <input type="text"
                               name="DistConnText"
                               value="<%= Server.HTMLEncode( strDistConnections ) %>"
                               size=<%= dwSizeLimText %>
                               maxlength=<%= CalcMaxInputLength( strDistConnections ) %>
                               onChange="JavaScript:CheckLimit( document.mainForm.DistConnCheckbox, document.mainForm.DistConnText, '<%= L_UNLIMITED_TEXT %>' );"
                               onPaste="JavaScript:CheckLimit( document.mainForm.DistConnCheckbox, document.mainForm.DistConnText, '<%= L_UNLIMITED_TEXT %>' );"
                               onKeyUp="JavaScript:CheckLimit( document.mainForm.DistConnCheckbox, document.mainForm.DistConnText, '<%= L_UNLIMITED_TEXT %>' );"
                               onKeyDown="JavaScript:CheckLimit( document.mainForm.DistConnCheckbox, document.mainForm.DistConnText, '<%= L_UNLIMITED_TEXT %>' );"
                               tabindex=<%= dwTabIndex %> <% dwTabIndex = dwTabIndex + 1 %><% IsDisabled( strDistConnections ) %>
                               >
                    </td>
                    <td bgcolor="#FFFFFF">
                        <div class="propshelp" align=center>
                            <center>
                            <a oncontextmenu="JavaScript:event.cancelBubble=true;return false;" class="propshelp" href="JavaScript:GetLimitDescription( 1 );" tabIndex=<%= dwTabIndex %> <% dwTabIndex = dwTabIndex + 1 %> ><%= L_DESCRIPTION_TEXT %></a>
                            </center>
                        </div>
                    </td>
                </tr>

<% ' Set aggregate player bandwidth limit (Kbps) %>
                <tr>
                    <td width="16">
                        <input type="checkbox"
                               title="<%= Server.HTMLEncode( L_CHECKBOXDESC_TEXT ) %>"
                               id="AggPlayerBWCheckbox"
                               name="AggPlayerBWCheckbox" <% CheckIfNotDefault strAggPlayerBW, L_UNLIMITED_TEXT %>
                               value=""
                               onClick="ToggleCheckbox( document.mainForm.AggPlayerBWCheckbox, document.mainForm.AggPlayerBWText );"
                               tabindex=<%= dwTabIndex %> <% dwTabIndex = dwTabIndex + 1 %>
                               >
                    </td>
                    <td class="propshand" align="left">
                        <label for="AggPlayerBWCheckbox"><span nowrap><% RenderWithErrorCheck Server.HTMLEncode( L_AGGPLAYERBWLIMIT_TEXT ), "PlayerBW" %></span></label>
                    </td>
                    <td align="right">
                        <input type="text"
                               name="AggPlayerBWText"
                               value="<%= Server.HTMLEncode( strAggPlayerBW ) %>"
                               size=<%= dwSizeLimText %>
                               maxlength=<%= CalcMaxInputLength( strAggPlayerBW ) %>
                               onChange="JavaScript:CheckLimit( document.mainForm.AggPlayerBWCheckbox, document.mainForm.AggPlayerBWText, '<%= L_UNLIMITED_TEXT %>' );"
                               onPaste="JavaScript:CheckLimit( document.mainForm.AggPlayerBWCheckbox, document.mainForm.AggPlayerBWText, '<%= L_UNLIMITED_TEXT %>' );"
                               onKeyUp="JavaScript:CheckLimit( document.mainForm.AggPlayerBWCheckbox, document.mainForm.AggPlayerBWText, '<%= L_UNLIMITED_TEXT %>' );"
                               onKeyDown="JavaScript:CheckLimit( document.mainForm.AggPlayerBWCheckbox, document.mainForm.AggPlayerBWText, '<%= L_UNLIMITED_TEXT %>' );"
                               tabindex=<%= dwTabIndex %> <% dwTabIndex = dwTabIndex + 1 %><% IsDisabled( strAggPlayerBW ) %>
                               >
                    </td>
                    <td bgcolor="#FFFFFF">
                        <div class="propshelp" align=center>
                            <center>
                            <a oncontextmenu="JavaScript:event.cancelBubble=true;return false;" class="propshelp" href="JavaScript:GetLimitDescription( 2 );" tabIndex=<%= dwTabIndex %> <% dwTabIndex = dwTabIndex + 1 %> ><%= L_DESCRIPTION_TEXT %></a>
                            </center>
                        </div>
                    </td>
                </tr>

<% ' Set outgoing distribution bandwidth limit (Kbps) %>
                <tr>
                    <td width="16">
                        <input type="checkbox"
                               title="<%= Server.HTMLEncode( L_CHECKBOXDESC_TEXT ) %>"
                               id="AggDistBWCheckbox"
                               name="AggDistBWCheckbox" <% CheckIfNotDefault strDistAggBW, L_UNLIMITED_TEXT %>
                               value=""
                               onClick="ToggleCheckbox( document.mainForm.AggDistBWCheckbox, document.mainForm.AggDistBWText );"
                               tabindex=<%= dwTabIndex %> <% dwTabIndex = dwTabIndex + 1 %>
                               >
                    </td>
                    <td class="propshand" align="left">
                        <label for="AggDistBWCheckbox"><span nowrap><% RenderWithErrorCheck Server.HTMLEncode( L_DISTBWLIMIT_TEXT ), "DistBW" %></span></label>
                    </td>
                    <td align="right">
                        <input type="text"
                               name="AggDistBWText"
                               value="<%= Server.HTMLEncode( strDistAggBW ) %>"
                               size=<%= dwSizeLimText %>
                               maxlength=<%= CalcMaxInputLength( strDistAggBW ) %>
                               onChange="JavaScript:CheckLimit( document.mainForm.AggDistBWCheckbox, document.mainForm.AggDistBWText, '<%= L_UNLIMITED_TEXT %>' );"
                               onPaste="JavaScript:CheckLimit( document.mainForm.AggDistBWCheckbox, document.mainForm.AggDistBWText, '<%= L_UNLIMITED_TEXT %>' );"
                               onKeyUp="JavaScript:CheckLimit( document.mainForm.AggDistBWCheckbox, document.mainForm.AggDistBWText, '<%= L_UNLIMITED_TEXT %>' );"
                               onKeyDown="JavaScript:CheckLimit( document.mainForm.AggDistBWCheckbox, document.mainForm.AggDistBWText, '<%= L_UNLIMITED_TEXT %>' );"
                               tabindex=<%= dwTabIndex %> <% dwTabIndex = dwTabIndex + 1 %> <% IsDisabled( strDistAggBW ) %>
                               >
                    </td>
                    <td bgcolor="#FFFFFF">
                        <div class="propshelp" align=center>
                            <center>
                            <a oncontextmenu="JavaScript:event.cancelBubble=true;return false;" class="propshelp" href="JavaScript:GetLimitDescription( 3 );" tabIndex=<%= dwTabIndex %> <% dwTabIndex = dwTabIndex + 1 %> ><%= L_DESCRIPTION_TEXT %></a>
                            </center>
                        </div>
                    </td>
                </tr>

<% ' Set bandwidth per stream per player limit (Kbps) %>
                <tr>
                    <td width="16">
                        <input type="checkbox"
                               title="<%= Server.HTMLEncode( L_CHECKBOXDESC_TEXT ) %>"
                               id="PlayerBWCheckbox"
                               name="PlayerBWCheckbox" <% CheckIfNotDefault strPlayerBW, L_UNLIMITED_TEXT %>
                               value=""
                               onClick="ToggleCheckbox( document.mainForm.PlayerBWCheckbox, document.mainForm.PlayerBWText );"
                               tabindex=<%= dwTabIndex %> <% dwTabIndex = dwTabIndex + 1 %>
                               >
                    </td>
                    <td class="propshand" align="left">
                        <label for="PlayerBWCheckbox"><span nowrap></span><% RenderWithErrorCheck Server.HTMLEncode( L_BWPERSTREAMPERPLAYERLIMIT_TEXT ), "PlayerBW" %></span></label>
                    </td>
                    <td align="right">
                        <input type="text"
                               name="PlayerBWText"
                               value="<%= Server.HTMLEncode( strPlayerBW ) %>"
                               size=<%= dwSizeLimText %>
                               maxlength=<%= CalcMaxInputLength( strPlayerBW ) %>
                               onChange="JavaScript:CheckLimit( document.mainForm.PlayerBWCheckbox, document.mainForm.PlayerBWText, '<%= L_UNLIMITED_TEXT %>' );"
                               onPaste="JavaScript:CheckLimit( document.mainForm.PlayerBWCheckbox, document.mainForm.PlayerBWText, '<%= L_UNLIMITED_TEXT %>' );"
                               onKeyUp="JavaScript:CheckLimit( document.mainForm.PlayerBWCheckbox, document.mainForm.PlayerBWText, '<%= L_UNLIMITED_TEXT %>' );"
                               onKeyDown="JavaScript:CheckLimit( document.mainForm.PlayerBWCheckbox, document.mainForm.PlayerBWText, '<%= L_UNLIMITED_TEXT %>' );"
                               tabindex=<%= dwTabIndex %> <% dwTabIndex = dwTabIndex + 1 %><% IsDisabled( strPlayerBW ) %>
                               >
                    </td>
                    <td bgcolor="#FFFFFF">
                        <div class="propshelp" align=center>
                            <center>
                            <a oncontextmenu="JavaScript:event.cancelBubble=true;return false;" class="propshelp" href="JavaScript:GetLimitDescription( 4 );" tabIndex=<%= dwTabIndex %> <% dwTabIndex = dwTabIndex + 1 %>><%= L_DESCRIPTION_TEXT %></a>
                            </center>
                        </div>
                    </td>
                </tr>

<% ' Set bandwidth per outgoing distribution stream (Kbps) %>
                <tr>
                    <td width="16">
                        <input type="checkbox"
                               title="<%= Server.HTMLEncode( L_CHECKBOXDESC_TEXT ) %>"
                               id="DistBWCheckbox"
                               name="DistBWCheckbox" <% CheckIfNotDefault strDistBW, L_UNLIMITED_TEXT %>
                               value=""
                               onClick="ToggleCheckbox( document.mainForm.DistBWCheckbox, document.mainForm.DistBWText );"
                               tabindex=<%= dwTabIndex %> <% dwTabIndex = dwTabIndex + 1 %>
                               >
                    </td>
                    <td class="propshand" align="left">
                        <label for="DistBWCheckbox"><span nowrap><% RenderWithErrorCheck Server.HTMLEncode( L_BWPEROUTDISTSTREAMLIMIT_TEXT ), "DistConn" %></span></label>
                    </td>
                    <td align="right">
                        <input type="text"
                               name="DistBWText"
                               value="<%= Server.HTMLEncode( strDistBW ) %>"
                               size=<%= dwSizeLimText %>
                               maxlength=<%= CalcMaxInputLength( strDistBW ) %>
                               onChange="JavaScript:CheckLimit( document.mainForm.DistBWCheckbox, document.mainForm.DistBWText, '<%= L_UNLIMITED_TEXT %>' );"
                               onPaste="JavaScript:CheckLimit( document.mainForm.DistBWCheckbox, document.mainForm.DistBWText, '<%= L_UNLIMITED_TEXT %>' );"
                               onKeyUp="JavaScript:CheckLimit( document.mainForm.DistBWCheckbox, document.mainForm.DistBWText, '<%= L_UNLIMITED_TEXT %>' );"
                               onKeyDown="JavaScript:CheckLimit( document.mainForm.DistBWCheckbox, document.mainForm.DistBWText, '<%= L_UNLIMITED_TEXT %>' );"
                               tabindex=<%= dwTabIndex %> <% dwTabIndex = dwTabIndex + 1 %><% IsDisabled( strDistBW ) %>
                               >
                    </td>
                    <td bgcolor="#FFFFFF">
                        <div class="propshelp" align=center>
                            <center>
                            <a oncontextmenu="JavaScript:event.cancelBubble=true;return false;" class="propshelp" href="JavaScript:GetLimitDescription( 5 );" tabIndex=<%= dwTabIndex %> <% dwTabIndex = dwTabIndex + 1 %>><%= L_DESCRIPTION_TEXT %></a>
                            </center>
                        </div>
                    </td>
                </tr>

<% ' Set Connection rate (per second) %>
                <tr>
                    <td width="16">
                        <input type="checkbox"
                               title="<%= Server.HTMLEncode( L_CHECKBOXDESC_TEXT ) %>"
                               id="ConnectRateCheckbox"
                               name="ConnectRateCheckbox" <% CheckIfNotDefault strConnectRate, DEFAULT_CONNECT_RATE %>
                               value=""
                               onClick="ToggleCheckboxEx( document.mainForm.ConnectRateCheckbox, document.mainForm.ConnectRateText, '<%= DEFAULT_CONNECT_RATE %>' );"
                               tabindex=<%= dwTabIndex %> <% dwTabIndex = dwTabIndex + 1 %>
                               >
                    </td>
                    <td class="propshand" align="left">
                        <label for="ConnectRateCheckbox"><span nowrap></span><% RenderWithErrorCheck Server.HTMLEncode( L_SRVLIMCXNNRATE_TEXT ), "ConnectRate" %></span></label>
                    </td>
                    <td align="right">
                        <input type="text"
                               name="ConnectRateText"
                               value="<%= Server.HTMLEncode( strConnectRate ) %>"
                               size=<%= dwSizeLimText %>
                               maxlength=<%= CalcMaxInputLength( strDistBW ) %>
                               onChange="JavaScript:CheckLimit( document.mainForm.ConnectRateCheckbox, document.mainForm.ConnectRateText, '<%= DEFAULT_CONNECT_RATE %>' );"
                               onPaste="JavaScript:CheckLimit( document.mainForm.ConnectRateCheckbox, document.mainForm.ConnectRateText, '<%= DEFAULT_CONNECT_RATE %>' );"
                               onKeyUp="JavaScript:CheckLimit( document.mainForm.ConnectRateCheckbox, document.mainForm.ConnectRateText, '<%= DEFAULT_CONNECT_RATE %>' );"
                               onKeyDown="JavaScript:CheckLimit( document.mainForm.ConnectRateCheckbox, document.mainForm.ConnectRateText, '<%= DEFAULT_CONNECT_RATE %>' );"
                               tabindex=<%= dwTabIndex %> <% dwTabIndex = dwTabIndex + 1 %><% IsDisabledEx strConnectRate, DEFAULT_CONNECT_RATE %>
                               >
                    </td>
                    <td bgcolor="#FFFFFF">
                        <div class="propshelp" align=center>
                            <center>
                            <a oncontextmenu="JavaScript:event.cancelBubble=true;return false;" class="propshelp" href="JavaScript:GetLimitDescription( 6 );" tabIndex=<%= dwTabIndex %> <% dwTabIndex = dwTabIndex + 1 %>><%= L_DESCRIPTION_TEXT %></a>
                            </center>
                        </div>
                    </td>
                </tr>

<% ' Set Player timeout inactivity (seconds) %>
                <tr>
                    <td width="16">
                        <input type="checkbox"
                               title="<%= Server.HTMLEncode( L_CHECKBOXDESC_TEXT ) %>"
                               id="PlayerTimeoutCheckbox"
                               name="PlayerTimeoutCheckbox" <% CheckIfNotDefault strPlayerTOInactivity, DEFAULT_PLAYERTIMEOUT_INSEC %>
                               value=""
                               onClick="ToggleCheckboxEx( document.mainForm.PlayerTimeoutCheckbox, document.mainForm.PlayerTimeoutText, '<%= DEFAULT_PLAYERTIMEOUT_INSEC %>' );"
                               tabindex=<%= dwTabIndex %> <% dwTabIndex = dwTabIndex + 1 %>
                               >
                    </td>
                    <td class="propshand" align="left">
                        <label for="PlayerTimeoutCheckbox"><span nowrap><% RenderWithErrorCheck Server.HTMLEncode( L_SRVLIMPLYRTOINA_TEXT ), "PlayerTimeout" %></span></label>
                    </td>
                    <td align="right">
                        <input type="text"
                               name="PlayerTimeoutText"
                               value="<%= Server.HTMLEncode( strPlayerTOInactivity ) %>"
                               size=<%= dwSizeLimText %>
                               maxlength=<%= CalcMaxInputLength( strPlayerTOInactivity ) %>
                               onChange="JavaScript:CheckLimit( document.mainForm.PlayerTimeoutCheckbox, document.mainForm.PlayerTimeoutText, '<%= DEFAULT_PLAYERTIMEOUT_INSEC %>' );"
                               onPaste="JavaScript:CheckLimit( document.mainForm.PlayerTimeoutCheckbox, document.mainForm.PlayerTimeoutText, '<%= DEFAULT_PLAYERTIMEOUT_INSEC %>' );"
                               onKeyUp="JavaScript:CheckLimit( document.mainForm.PlayerTimeoutCheckbox, document.mainForm.PlayerTimeoutText, '<%= DEFAULT_PLAYERTIMEOUT_INSEC %>' );"
                               onKeyDown="JavaScript:CheckLimit( document.mainForm.PlayerTimeoutCheckbox, document.mainForm.PlayerTimeoutText, '<%= DEFAULT_PLAYERTIMEOUT_INSEC %>' );"
                               tabindex=<%= dwTabIndex %> <% dwTabIndex = dwTabIndex + 1 %><% IsDisabledEx strPlayerTOInactivity, DEFAULT_PLAYERTIMEOUT_INSEC %>
                               >
                    </td>
                    <td bgcolor="#FFFFFF">
                        <div class="propshelp" align=center>
                            <center>
                            <a oncontextmenu="JavaScript:event.cancelBubble=true;return false;" class="propshelp" href="JavaScript:GetLimitDescription( 7 );" tabIndex=<%= dwTabIndex %> <% dwTabIndex = dwTabIndex + 1 %>><%= L_DESCRIPTION_TEXT %></a>
                            </center>
                        </div>
                    </td>
                </tr>

<% ' Set Connection rate (per second) %>
                <tr>
                    <td width="16">
                        <input type="checkbox"
                               title="<%= Server.HTMLEncode( L_CHECKBOXDESC_TEXT ) %>"
                               id="ConnectACKCheckbox"
                               name="ConnectACKCheckbox" <% CheckIfNotDefault strPlayerConnectACK, DEFAULT_SERVER_CONNECTACK_INSEC %>
                               value=""
                               onClick="ToggleCheckboxEx( document.mainForm.ConnectACKCheckbox, document.mainForm.ConnectACKText, '<%= Server.HTMLEncode( DEFAULT_SERVER_CONNECTACK_INSEC ) %>' );"
                               tabindex=<%= dwTabIndex %> <% dwTabIndex = dwTabIndex + 1 %>
                               >
                    </td>
                    <td class="propshand" align="left">
                        <label for="ConnectACKCheckbox"><span nowrap><% RenderWithErrorCheck Server.HTMLEncode( L_SRVLIMNXNACKTO_TEXT ), "ConnACK" %></span></label>
                    </td>
                    <td align="right">
                        <input type="text"
                               name="ConnectACKText"
                               value="<%= Server.HTMLEncode( strPlayerConnectACK ) %>"
                               size=<%= dwSizeLimText %>
                               maxlength=<%= CalcMaxInputLength( strPlayerConnectACK ) %>
                               onChange="JavaScript:CheckLimit( document.mainForm.ConnectACKCheckbox, document.mainForm.ConnectACKText, '<%= Server.HTMLEncode( DEFAULT_SERVER_CONNECTACK_INSEC ) %>' );"
                               onPaste="JavaScript:CheckLimit( document.mainForm.ConnectACKCheckbox, document.mainForm.ConnectACKText, '<%= Server.HTMLEncode( DEFAULT_SERVER_CONNECTACK_INSEC ) %>' );"
                               onKeyUp="JavaScript:CheckLimit( document.mainForm.ConnectACKCheckbox, document.mainForm.ConnectACKText, '<%= Server.HTMLEncode( DEFAULT_SERVER_CONNECTACK_INSEC ) %>' );"
                               onKeyDown="JavaScript:CheckLimit( document.mainForm.ConnectACKCheckbox, document.mainForm.ConnectACKText, '<%= Server.HTMLEncode( DEFAULT_SERVER_CONNECTACK_INSEC ) %>' );"
                               tabindex=<%= dwTabIndex %> <% dwTabIndex = dwTabIndex + 1 %> <% IsDisabledEx strPlayerConnectACK, DEFAULT_SERVER_CONNECTACK_INSEC %>
                               >
                    </td>
                    <td bgcolor="#FFFFFF">
                        <div class="propshelp" align=center>
                            <center>
                            <a oncontextmenu="JavaScript:event.cancelBubble=true;return false;" class="propshelp" href="JavaScript:GetLimitDescription( 8 );" tabIndex=<%= dwTabIndex %> <% dwTabIndex = dwTabIndex + 1 %>><%= L_DESCRIPTION_TEXT %></a>
                            </center>
                        </div>
                    </td>
                </tr>

<% ' Set Incoming Bandwidth (Kbps) %>
                <tr>
                    <td width="16">
                        <input type="checkbox"
                               title="<%= Server.HTMLEncode( L_CHECKBOXDESC_TEXT ) %>"
                               id="IncomingBWCheckbox"
                               name="IncomingBWCheckbox" <% CheckIfNotDefault strIncomingBW, L_UNLIMITED_TEXT %>
                               value=""
                               onClick="ToggleCheckbox( document.mainForm.IncomingBWCheckbox, document.mainForm.IncomingBWText );"
                               tabindex=<%= dwTabIndex %> <% dwTabIndex = dwTabIndex + 1 %>
                               >
                    </td>
                    <td class="propshand" align="left">
                        <label for="IncomingBWCheckbox"><span nowrap><% RenderWithErrorCheck Server.HTMLEncode( L_SRVINCOMINGBW_TEXT ), "IncomingBW" %></span></label>
                    </td>
                    <td align="right">
                        <input type="text"
                               name="IncomingBWText"
                               value="<%= Server.HTMLEncode( strIncomingBW ) %>"
                               size=<%= dwSizeLimText %>
                               maxlength=<%= CalcMaxInputLength( strIncomingBW ) %>
                               onChange="JavaScript:CheckLimit( document.mainForm.IncomingBWCheckbox, document.mainForm.IncomingBWText, '<%= L_UNLIMITED_TEXT %>' );"
                               onPaste="JavaScript:CheckLimit( document.mainForm.IncomingBWCheckbox, document.mainForm.IncomingBWText, '<%= L_UNLIMITED_TEXT %>' );"
                               onKeyUp="JavaScript:CheckLimit( document.mainForm.IncomingBWCheckbox, document.mainForm.IncomingBWText, '<%= L_UNLIMITED_TEXT %>' );"
                               onKeyDown="JavaScript:CheckLimit( document.mainForm.IncomingBWCheckbox, document.mainForm.IncomingBWText, '<%= L_UNLIMITED_TEXT %>' );"
                               tabindex=<%= dwTabIndex %> <% dwTabIndex = dwTabIndex + 1 %><% IsDisabled( strIncomingBW ) %>
                               >
                    </td>
                    <td bgcolor="#FFFFFF">
                        <div class="propshelp" align=center>
                            <center>
                            <a oncontextmenu="JavaScript:event.cancelBubble=true;return false;" class="propshelp" href="JavaScript:GetLimitDescription( 10 );" tabIndex=<%= dwTabIndex %> <% dwTabIndex = dwTabIndex + 1 %>><%= L_DESCRIPTION_TEXT %></a>
                            </center>
                        </div>
                    </td>
                </tr>

                <tr>
                    <td colspan="3">
                        <table width="100%" border="1" cellspacing="0" cellpadding="0">
                        <tr>
                            <td>
                                <table width="100%" border="0" cellspacing="4" cellpadding="0">
                                <tr>
                                    <td width="40%" align="right">
                                        <input type="submit" name="submit" action="<%= RemoveDangerousCharacters( g_strQueryString ) & "&limitOp=submit" %>" value="<%= Server.HTMLEncode( L_APPLYBUTTON_TEXT ) %>" tabindex=<%= dwTabIndex %> <% dwTabIndex = dwTabIndex + 1 %>  disabled >
                                        <input type="button" name="cancel" value="<%= Server.HTMLEncode( L_CANCELBUTTONSPACED_TEXT ) %>" Onclick="JavaScript:Cancel();" tabindex=<%= dwTabIndex %> <% dwTabIndex = dwTabIndex + 1 %> disabled>

                                    </td>
                                </tr>
                                </table>
                            </td>
                        </tr>
                        </table>
                    </td>
                </tr>
                </table>
            </td>
        </tr>
        </table>
        </td>
<% end if %>
        </table>
        <!-- Dummy element -->
        <input type="hidden" name="server" value="<%= g_strQueryStringServer %>">
        <input type="hidden" name="category" value="<%= strCategory %>">
        <% if( SHOWING_LIMITS <> dwDisplayMode ) then %>
        <input type="hidden" name="instance" value="<%= strEncodedInstance %>">
        <% end if %>
        <input type="hidden" name="plugins" value=" ">
        <input type="hidden" name="pluginIndex" value="<%
        if( 0 < Len( strCurrentCheckedPluginName ) ) then
            Response.Write( strCurrentCheckedPluginName )
        else
            Response.Write( strPluginIndex )
        end if %>">
        <% if( SHOWING_LIMITS = dwDisplayMode ) then %>
        <input type="hidden" name="limits" value=" ">
        <% end if %>
        </td>
    </tr>
    <tr>
        <td>
            <%
if ( SHOWING_LIMITS = dwDisplayMode ) or _
   ( SHOWING_GENERAL = dwDisplayMode ) or _
   ( ( SHOWING_PLUGINS = dwDisplayMode ) and ( 0 = dwNumPluginsDisplayed ) ) then
            ToolbarButtonText ( 0 ) = L_BUTTONENABLE_TEXT
            ToolbarButtonImage( 0 ) = IMAGE_ENABLEG
            ToolbarButtonImageDisabled( 0 ) = IMAGE_ENABLEG
            ToolbarButtonLink ( 0 ) = ""
            if( SHOWING_PLUGINS = dwDisplayMode ) then
                ToolbarButtonAltText( 0 ) = L_ENABLEPLUGTT_TEXT
            else
                ToolbarButtonAltText( 0 ) = L_ENABLEPLUG_TEXT
            end if

            ToolbarButtonText ( 1 ) = L_BUTTONDISABLE_TEXT
            ToolbarButtonImage( 1 ) = IMAGE_DISABLEG
            ToolbarButtonImageDisabled( 1 ) = IMAGE_DISABLEG
            ToolbarButtonLink ( 1 ) = ""
            if( SHOWING_PLUGINS = dwDisplayMode ) then
                ToolbarButtonAltText( 1 ) = L_DISABLEPLUGTT_TEXT
            else
                ToolbarButtonAltText( 1 ) = L_DISABLEPLUG_TEXT
            end if

            ToolbarButtonText ( 2 ) = L_BUTTONREMOVE_TEXT
            ToolbarButtonImage( 2 ) = IMAGE_REMOVEG
            ToolbarButtonLink ( 2 ) = ""
            ToolbarButtonAltText( 2 ) = L_REMOVEPLUG_TEXT

            ToolbarButtonText ( 3 ) = L_BUTTONDUPLICATE_TEXT
            ToolbarButtonImage( 3 ) = IMAGE_PLUGINDUPLICATEG
            ToolbarButtonLink ( 3 ) = ""
            ToolbarButtonAltText( 3 ) = L_DUPPLUG_TEXT

            ToolbarButtonText ( 4 ) = L_BUTTONPROPERTIES_TEXT
            ToolbarButtonImage( 4 ) = IMAGE_PROPERTIESG
            ToolbarButtonLink ( 4 ) = ""
            ToolbarButtonAltText( 4 ) = L_VIEWPROPS_TEXT

            ToolbarButtonText ( 5 ) = L_BUTTONRENAME_TEXT
            ToolbarButtonImage( 5 ) = IMAGE_RENAMEG
            ToolbarButtonLink ( 5 ) = ""
            ToolbarButtonAltText( 5 ) = L_RENAMEPLUG_TEXT

else
            ToolbarButtonText ( 0 ) = L_BUTTONENABLE_TEXT
            ToolbarButtonImage( 0 ) = IMAGE_ENABLE
            ToolbarButtonImageDisabled( 0 ) = IMAGE_ENABLEG
            ToolbarButtonLink ( 0 ) = "Javascript:Enable();"
            if( SHOWING_PLUGINS = dwDisplayMode ) then
                ToolbarButtonAltText( 0 ) = L_ENABLEPLUGTT_TEXT
            else
                ToolbarButtonAltText( 0 ) = L_ENABLEPLUG_TEXT
            end if

            ToolbarButtonText ( 1 ) = L_BUTTONDISABLE_TEXT
            ToolbarButtonImage( 1 ) = IMAGE_DISABLE
            ToolbarButtonImageDisabled( 1 ) = IMAGE_DISABLEG
            ToolbarButtonLink ( 1 ) = "Javascript:Disable();"
            if( SHOWING_PLUGINS = dwDisplayMode ) then
                ToolbarButtonAltText( 1 ) = L_DISABLEPLUGTT_TEXT
            else
                ToolbarButtonAltText( 1 ) = L_DISABLEPLUG_TEXT
            end if

            ToolbarButtonText ( 2 ) = L_BUTTONREMOVE_TEXT
            ToolbarButtonImage( 2 ) = IMAGE_REMOVE
            ToolbarButtonImageDisabled( 2 ) = IMAGE_REMOVEG
            ToolbarButtonLink ( 2 ) = "Javascript:Remove();"
            ToolbarButtonAltText( 2 ) = L_REMOVEPLUG_TEXT

            ToolbarButtonText ( 3 ) = L_BUTTONDUPLICATE_TEXT
            ToolbarButtonImage( 3 ) = IMAGE_PLUGINDUPLICATE
            ToolbarButtonImageDisabled( 3 ) = IMAGE_PLUGINDUPLICATEG
            ToolbarButtonLink ( 3 ) = "Javascript:Duplicate();"
            ToolbarButtonAltText( 3 ) = L_DUPPLUG_TEXT

            ToolbarButtonText ( 4 ) = L_BUTTONPROPERTIES_TEXT
            ToolbarButtonImage( 4 ) = IMAGE_PROPERTIES
            ToolbarButtonImageDisabled( 4 ) = IMAGE_PROPERTIESG
            ToolbarButtonLink ( 4 ) = "Javascript:Properties();"
            ToolbarButtonAltText( 4 ) = L_VIEWPROPS_TEXT

            ToolbarButtonText ( 5 ) = L_BUTTONRENAME_TEXT
            ToolbarButtonImage( 5 ) = IMAGE_RENAME
            ToolbarButtonLink ( 5 ) = "Javascript:Rename();"
            ToolbarButtonAltText( 5 ) = L_RENAMEPLUG_TEXT
end if
    Dim dwLastButton
    dwLastButton = 5
    if( SHOWING_PLUGINS = dwDisplayMode ) then
            ToolbarButtonText ( 6 ) = L_BUTTONREFRESH_TEXT
            ToolbarButtonImage( 6 ) = IMAGE_REFRESH
            ToolbarButtonLink ( 6 ) = "JavaScript:Refresh();"
            ToolbarButtonAltText( 6 ) = L_BUTTONREFRESHLIST_TEXT
            dwLastButton = 6
    end if
    if( Session( "ShowServerList" ) ) then
            dwLastButton = dwLastButton + 1
            ToolbarButtonText ( dwLastButton ) = L_BUTTONRETURNTOSERVERLIST_TEXT
            ToolbarButtonImage( dwLastButton ) = IMAGE_SERVERLIST
            ToolbarButtonLink ( dwLastButton ) = SERVERSLIST_PATH
            ToolbarButtonAltText( dwLastButton ) = L_RETURNTOSL_TEXT
    end if
            dwLastButton = dwLastButton + 1
            ToolbarButtonText ( dwLastButton ) = L_BUTTONHELP_TEXT
            ToolbarButtonImage( dwLastButton ) = IMAGE_HELP
            ToolbarButtonLink ( dwLastButton ) = HELPTOKEN
            ToolbarButtonAltText( dwlastButton ) = L_HELPALT_TEXT
            ToolbarHelpURL = H_SERVERPLUGINSHELPTOPIC
            ToolbarNesting = H_SERVERLEVEL
            %>
<% DrawToolbar TRUE, ( dwlastButton + 1 )  %>
          </td>
        </tr>
        </table>
        <!-- END TOOLBAR -->
    </td>

</tr>
</table>
</form>
<%
if ( SHOWING_LIMITS <> dwDisplayMode ) then
    DrawRefreshControl FALSE
end if
DrawCopyrightInfo
DrawStdFooter
if( Session( "ErrorNumber" ) <> 0 ) then
%>
<script language="JavaScript">
    UpdateTreeView();
</script>
<%
end if

AlertUserWithPopupErrorDialog

if ( 0 = StrComp( "nopluginui", RemoveDangerousCharacters( qs("err") ), vbTextCompare ) ) then
%>
<script language="JavaScript">
    window.alert( "<%= RemoveDangerousCharacters( L_NOPROPERTYPAGE_TEXT ) %>" );
    document.location.replace( "<%= Request.ServerVariables( "PATH_INFO" ) & "?server=" & g_strQueryStringServer & "&category=" & strCategory & "&instance=" & SafeEscape( strEncodedInstance ) %>" );
</script><%
end if

if( bPluginDisabledError ) then
    Session( "PageReloadedToDisplayError" ) = 1
    err.number = CDbl( strError )
    err.Description = Session( "ErrDisablePluginDesc" )
    Session( "ErrDisablePluginDesc" ) = ""
    ErrorDetected( "disable" )
end if

if ( SHOWING_PLUGINS = dwDisplayMode ) and ( "enable" = RemoveDangerousCharacters( qs("op") ) ) and ( Session( "ErrorNumber" ) <> 0 ) then
    %><script language="JavaScript">
        document.location.replace( "server_props.asp?server=<%=g_strQueryStringServer%>&category=<%= strCategory %>&pluginIndex=<%= strPluginIndex %>" );
      </script>
    <%
else
    OnErrorGoBack
end if

if( bPluginDisabledError ) then
    ClearError
end if
if Session( "ErrorNumber" ) <> 0 then
%>
<script language="JavaScript">
    document.location.replace( "<%= Request.ServerVariables( "PATH_INFO" ) & "?server=" & g_strQueryStringServer & "&category=" & strCategory & "&instance=" & strEncodedInstance & "&pluginIndex=" & strPluginIndex %>" );
</script>
<%
end if
%>
</body>
<script language="JavaScript">
//////////////////////////////////////////////////////////////////////////
function SetInitialState()
{
    g_szCurPluginElementName = new String( "<%= strCurrentCheckedPluginName %>" );
    g_bCurSelCanBeDuplicated = <%= BoolToText( bCurSelCanBeDuplicated ) %>;
    g_bCurSelSupportsEnableDisable = <%= BoolToText( bCurSelSupportsEnableDisable ) %>;
    g_bCurSelCanBeDisabled = <%= BoolToText( bCurSelCanBeDisabled ) %>;
    g_bCurSelCanBeRemoved = <%= BoolToText( bCurSelCanBeRemoved ) %>;
    g_bCurSelSupportsProperties = <%= BoolToText( bCurSelSupportsProperties ) %>;
    g_bInError = <%= BoolToText( bCurSelInError ) %>;
    g_bEnabled = <%= BoolToText( bCurSelEnabled ) %>;
    g_bShowActiveScriptWarning = <%= BoolToText( bCurSelIsActiveScriptNoFilename ) %>;<%
if ( ( SHOWING_PLUGINS = dwDisplayMode ) and ( FALSE = bCheckedAnItem ) ) then %>
    <% jsTRY %>
        if( document.mainForm.plugins && ( document.mainForm.plugins[ 0 ] ) )
        {
            document.mainForm.plugins[ 0 ].checked = true;
            document.mainForm.plugins[ 0 ].onclick();
        }
    <% jsCATCH %>
<%
end if %>
}
</script>
</html>
<%
LatchCurrentPage "server_props.asp", qs
EndErrorHandling "server_props.asp"

on error resume next
objPluginCollection = nothing
objServerLimits = nothing
WMSServerHashASPCleanup
WMSConnectASPCleanup
%>